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FOREWORD 


This  Part  of  the  MAWLOGS  Module  Catalog  is  submitted  to  the 
Department  of  the  Army,  Washington,  D.C.  20310  by  the  BDM  Corporation, 

1920  Aline  Avenue,  Vienna,  Virginia  22 1 80 , as  reguired  by  Contract 
Number  DAAG39-76-C-01 34. 

This  document  is  one  of  sixteen  that  describes  the  Models  of  the  US 
Army  Worldwide  Logistic  System  (MAWLOGS).  MAWLOGS  was  developed  for  the 
Deputy  Chief  of  Staff  for  Logistics,  Department  of  the  Army,  under  the 
monitorship  of  the  US  Army  Logistics  Evaluation  Agency  and  the  US  Army 
Logistics  Center.  The  development  objective  was  to  provide  a capability 
to  analyze  and  compare  the  performance  of  multifunctional  logistic 
systems,  to  include  both  current  and  proposed  systems.  MAWLOGS  is  not  a 
model  of  a particular  Army  logistic  system.  It  is  a system  for  the 
rapid  assembly  of  discrete-event  stochastic  simulation  models  of  a wide 
range  of  logistic  systems  and  for  the  processing  and  interpretation  of 
data  associated  with  the  execution  of  such  models.  The  original  documenta- 
tion was  completed  in  1974.  Documentation  for  subseguent  software 
development  has  added  five  volumes  to  the  original  eleven.  The  documents 
describing  the  system  and  how  to  apply  it  are  listed  below. 

Volume  I - General  Description 

Volume  II  - User's  Manual 

Volume  I I A - Addendum  to  User's  Manual 
Volume  III  - Module  Catalog 
Part  I - Service  Modules 

Part  2 - Field  Maintenance  and  Supply  Modules 


Part  3 " Wholesale  Supply  and  Maintenance  Modules 

Part  4 - Transportation  Modules 

Part  5 - Communication  Modules 

Part  6 - Continuous  Service  Modules 

Part  7 ' Continuous  Supply  Modules 

Part  8 - Containerization  Modules 

Part  9 " Model  Change  Modules 
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Volume  IV  - Programmer's  Guide 
Part  1 - Writing  and  Testing  Modules,  Module  Library 
Maintenance  and  General  Guidance 
Part  2 - Technical  Description  of  the  Model  Assembler 
Program 

Part  3 ~ Technical  Description  of  the  Output  Data 
Postprocessor  System  and  Programs 
Part  ^ - Module  Library  Program  Listings 

Volume  IVA  - Addendum  to  Programmer's  Guide 
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CHAPTER  I 

INTRODUCTION  TO  MODULE  CATALOG 

The  MAWLOGS  System  is  a set  of  computer  programs  by  which  a large 
number  of  stochastic,  discrete-event,  computerized  simulation  models  of 
logistic  systems  or  portions  of  systems  can  be  generated.  The  computer 
programs  in  the  MAWLOGS  System  may  be  divided  into  four  groups,  each  of 
which  constitutes  a basic  element  of  the  System.  One,  called  the  Module 
Library,  contains  programs  that  simulate  logistic  activities  or  perform 
simulation  bookkeeping  activities.  A second  group  of  programs,  called 
the  Model  Assembler,  generates  MAWLOGS  models  by  retrieving  required  modules 
from  the  Module  Library  and  creating  sufficient  additional  programs  to  link 
the  selected  modules  together  into  a model.  The  other  two  groups  constitute 
the  Output  Data  Postprocessor  System  and  the  Automated  Input  Data  System. 

An  overview  of  the  MAWLOGS  System  is  given  in  Volume  I and,  in  briefer 
form  in  Section  I of  Volume  II. 

The  MAWLOGS  Module  Catalog  is  the  directory  to  the  Module  Library. 

Its  purpose  is  to  describe  to  the  user  of  the  MAWLOGS  System  the  modules 
that  are  in  the  library  and  the  logistic  or  simulation  function  each  per- 
forms. For  logistic  modules,  such  additional  information  as  the  level  of 
detail,  decision  rules  used,  and  statistics  collected  are  given. 

The  User's  Manual,  Volume  II  of  the  four-volume  MAWLOGS  documentation, 
describes  how  to  define  a model  to  the  Model  Assembler  in  terms  of  modules, 
how  to  run  the  Assembler  to  produce  the  model,  how  to  use  the  model,  to 
include  preparation  of  inputs  for  simulation  control,  and  how  to  use  the 
MAWLOGS  Output  Data  Postprocessor  to  analyze  model  outputs.  Volume  IV, 
"Programmer's  Guide,"  contains  technical  descriptions  of  the  Model  Assembler 
and  the  Output  Data  Postprocessor  System.  The  Programmer's  Guide  also 
discussed  the  writing  of  modules. 

Thus,  the  user  of  the  Module  Catalog  is  likely  to  be  working  from 
either  of  two  directions.  The  more  usual  case  will  be  that  of  the  model 
writer  using  the  User's  Manuals  as  a guide  and  the  Module  Catalog  as  a 

... 
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reference  from  which  to  select  modules  appropriate  for  use  in  his  model. 

The  other  case  is  that  of  the  module  writer  who  wishes  to  write  new 
modules  or  modify  existing  ones.  The  module  writer  will  be  usiny  the 
Programmer's  Guide  as  his  guide,  and  the  technical  details  in  the  Module 
Catalog  to  determine  what  to  modify  in  existing  modules  or  what  specific 
points  must  be  accommodated  to  make  any  new  modules  compatible  with  existing 
mod  u I e s . 

A.  CATALOG  LAYOUT 

The  MAWLOGS  Module  Catalog  is  organized  into  Parts,  each  of  which, 
with  the  exception  of  Part  1,  describes  the  modules  for  a logistic  func- 
tional area.  Part  1 describes  the  simulation  service  modules.  In  the 
initial  catalog,  Part  2 covers  field  maintenance  and  supply.  Part  3 covers 
wholesale  maintenance  and  supply.  Part  4 covers  t ransporat ion , and  Part  5 
covers  communications.  A Part  is  organized  into  four  major  sections  in 
addition  to  this  introduction.  Sections  4 and  5 describe  the  modules. 
Sections  2 and  3 present  information  common  to  large  groups  of  modules 
under  the  headings  MODULE  FAMILIES  and  DATA  STRUCTURE. 

1 . Module  Descriptions 

It  is  essential  to  distinguish  between  two  types  of  modules  — 
those  that  may  be  referenced  in  a model  description,  called  verbs,  and 
those  that  may  not,  called  routines.  The  catalog  descriptions  of  verbs  for 
a logistic  functional  area  will  be  found  in  the  fourth  section  of  a Part, 
entitled  "VERBS,"  the  descriptions  of  supporting  routines  in  the  fifth, 
entitled  "ROUTINES."  Within  each  section  the  modules  are  in  alphabetical 
order.  Each  Part  contains  an  index  to  its  verbs  and  supporting  routines. 

A module  of  either  type  is  documented  in  a standard  format,  using 
a certain  amount  of  phraseological  and  notational  convention.  The  format 
and  conventions  are  described  further  in  subseguent  paragraphs. 

2 . Modu 1 e Families 

The  presence  of  a section  called  "MODULE  FAMILIES"  reflects  recog- 
nition of  the  fact  that  modules  are  designed  in  groups  along  certain  lines 
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chosen  by  the  designer.  Thus,  the  designer  chooses  the  scope  and  level 
of  detail  with  which  he  will  cover  a set  of  logistic  activities,  to  what 
degree  he  will  "modularize"  the  coverage,  which  options  he  will  provide, 
the  data  structures  he  will  use,  and  a variety  of  other  details  in  the 
programming  approach.  He  will  base  his  work  on  one  or  more  major  assumptions 
and  objectives.  A knowledge  of  the  background  and  viewpoint  underlying  a 
group  of  related  modules  can  greatly  facilitate  their  proper  use.  The 
MODULE  FAMILIES  section  is  intended  to  provide  this  background  and  overview. 
Examples  of  nodes  or  subnodes  in  which  the  verbs  of  a family  are  used  in 
their  intended  patterns  should  also  be  sought  in  the  MODULE  FAMILIES  sections. 
The  types  of  statistics  collected  in  a module  family  are  tabulated  all 
together  in  this  section. 

3 . Data  Structure 

The  section  called  "DATA  STRUCTURES"  contains  descriptions  of  the 
organization  of  the  data  storage  areas  that  support  a module  family.  The 
description  consists  of  the  names  of  common  blocks  and,  for  each,  the  names 
and  definitions  of  variables.  Highlights  and  key  points  of  the  data  struc- 
ture are  described.  Normally  there  will  be  a major  section  to  describe 
permanent  attributes  and  a lesser  one  to  describe  temporary  attributes. 

B.  CATALOG  CONVENTIONS 

A verb  description  in  the  catalog  follows  the  outline  shown  below. 


VERBNAME  (arguments) 

General  Description 
Assembler  Inputs 
Examp  I es 

Statistics  Coll ected 

GASP  Files  Used 

Permanent  Attributes  Accessed 

Verb  Inputs 

Verb  Outputs 

Prog  rams  Cal  led 

Input/Output  Files  Used 


simple 
nons i mpl e 


VERBNAME 

/ funct i on/fami 1 y 
month/year  written 
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Supporting  routines  are  described  in  a similar  format  with  the  inapplicable 
headings  "Parameter  Slots"  and  "Examples"  omitted.  Note  that  a listing 
of  the  computer  program  is  not  included;  these  are  available  in  Part  A of 
Volume  IV,  Programmer's  Guide.  Further  discussion  of  the  content  of  each 
section  of  the  outline,  to  include  particular  notational  or  descriptive 
conventions  used,  are  given  next.  The  sections  progress  from  general  to 
detailed.  For  most  verbs,  the  model  writer  should  not  have  to  go  beyond 
the  section  called  "Statistics  Collected." 

1 . Upper  Righthand  Corner 

Here  a coded  summary  of  the  verb  is  given  in  two  lines  under  its 
name.  The  first  line  identifies  the  verb  as  simple,  S,  or  nonsimple,  N. 

It  also  gives  a code  for  the  logistic  or  other  function  represented  and, 
following  this,  a code  for  the  module  family  it  is  considered  to  be  a part 
of.  Values  for  the  function  and  family  codes  are  given  in  the  accompanying 
tabulation.  The  second  line  under  the  verb  name  gives  the  month  and  year 
when  wr i t ten . 


Functional  areas 

Modu 1 e fami lies 

Code  j 

Area 

Code 

Fam i 1 y 

C 

commun i cat i ons 

Cl 

commun i cat i ons 

LS 

logistic  service 

CH 

change  logic 

M 

ma i ntenance 

CS 

continuous  service 

R 

rebu i 1 d 

LS) 

logistic  service 

S 

supply 

Ml 

field  maintenance 

SS 

simulation  service 

M2 

wholesale  maintenance 

ST 

statistics  collection  PDS 

permanent  datasets 

T 

t ranspora t i on 

R 1 

field  rebu i 1 d 

U 

user 

SI 

field  supply 

V 

sa 1 vage 

S2 

wholesale  supply 

X 

d i rect  exchange 

S3 

revised  field  supply 

S1* 

continuous  supply 

SSI 

simulation  service 

ST  1 

statistics  collection 

T 1 

aggregate  transportation 

T2 

detailed  transportation 

T3 

contai ner i zat i on 

U! 

fleet  user 

VI 

sa 1 vage 

XI 

field  direct  exchange 

X2 

revised  OX 

I -A 
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2 . General  Description 

This  section  contains  a general  discussion  of  what  the  verb  does, 
to  include  any  significant  mathematics.  The  flow  of  control  when  execution 
of  the  verb  is  completed  is  also  described.  The  phrases  "to  the  calling 
program"  and  "to  the  time  file"  are  used  for  the  flow  of  control  when, 
respectively,  a CALL  RETLOG  returns  control  to  the  previous  stage  of  the 
logic  flow  that  led  to  the  verb,  or  a CALL  ZFADE  interrupts  the  present 
flow  and  returns  control  to  program  MAWGSP,  which  then  removes  the  next 
event  from  the  time  file.  For  modules  which  read  cards,  write  reports,  or 
read  or  write  other  external  files,  the  card  formats,  report  formats,  or 
file  formats  are  described. 

3 . Assembler  Inputs 

Here  the  information  to  be  specified  for  the  verb  when  it  is 
referenced  in  a model  description  written  for  input  to  the  Model  Assembler 
is  defined.  Two  types  of  information  are  identified,  arguments  and  para- 
meter slots.  Arguments  are  variables  for  which  values  are  specified  in  the 
form  "P  = i,  j,  ..."  i.e.,  they  are  variables  whose  names  will  appear  as 
arguments  of  the  verb  in  its  FORTRAN  subroutine  form.  Parameter  slots, 
abbreviated  "PS,"  are  places  in  the  logic  of  a verb  where  access  to  node 
references  and  the  logic  of  other  verbs  may  be  provided  for  by  the  Model 
Assembler.  The  content  of  a parameter  slot  is  described  in  general  terms. 

It  will  be  recalled  from  the  User's  Manual  that  a PS  need  not  be  filled. 

If  it  is  filled,  it  is  incumbent  on  the  user  to  insure  that  the  verbs  chosen 
as  content  of  the  PS  are  compatible  with  each  other  and  with  the  verb  in 
whose  PS  they  appear.  In  particular,  this  means  that  the  verbs  chosen  for 
the  PS  must  not  only  represent  the  general  functional  content  required,  but 
that  their  inputs  as  described  in  the  section  of  this  outline  called  Verb 
Inputs  must  be  compatible  with  the  outputs  of  the  using  verb  described  in 
the  section  of  this  outline  called  Verb  Outputs  and  vice  versa. 

Some  parameter  slots  are  for  sending  something  out  --  a message 
or  a shipment,  for  example.  Such  a parameter  slot  will  often  be  marked 
"D-delay"  or  "R-delay."  These  designations  represent  cases  in  which, 
respectively,  (a)  control  is  expected  to  be  given  to  the  time  file  after 
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the  arrival  event  has  been  scheduled,  and  (b)  control  is  to  be  returned 
to  the  verb  containing  the  PS  after  the  arrival  event  has  been  scheduled. 

The  prototypical  verbs  of  these  types  are  DELAY  and  RTURN.  The  correspond- 
ing communications  verbs  are  COMMD  and  COMMR,  and  the  corresponding  trans- 
portation verbs  are  TRAND  and  TRANR.  An  important  point  to  note  is  that 
in  the  case  of  a PS  marked  "R-delay,  11  the  presence  of  a RTURN  or  similar 
verb  is  mandatory,  even  if  the  delay  time  is  to  be  zero,  while  in  a "D-delay" 
PS,  the  DELAY  or  similar  verb  may  be  omitted  if  the  delay  is  to  be  zero 
or  if  some  other  disposition  of  the  entity  normally  thought  of  as  being 
"sent"  is  to  be  provided  for. 

b . Examples 

Examples  of  how  the  verb  is  used  in  portions  of  model  descriptions 
are  shown  or  described.  Certain  limitations  or  options  are  often  highlighted 
under  this  heading. 

5 . Statistics  Collected 

The  variables  on  which  statistics  are  collected  are  listed  in 
terms  of  a descriptive  phrase  and,  for  variables  observed  through  calls  to 
STATI , the  names  of  the  variables  and  common  blocks  in  which  the  statistics 
indicator  codes  and  indexes  are  stored.  However,  the  statistics  type  code, 
resource  identifier,  and  node  code  by  which  a statistics  variable  is  iden- 
tified are  not  given  here;  they  must  be  sought  in  the  Module  Family  section 
of  the  Part  of  the  catalog  in  which  the  verb  is  described. 

6 . GASP  Files  Used 

The  GASP  files  accessed  by  the  module  are  identified,  primarily 
in  terms  of  a general  description  of  the  content  of  the  file  and  the  names 
of  variables  and  common  areas  in  which  the  GASP  file  numbers  are  stored. 

The  indirect  identification  of  the  file  number  reflects  the  fact  that  in 
general  the  file  numbers  are  assigned  to  a particular  queue  when  the  first 
entry  is  to  be  filed  or  when  the  logistic  functional  area  is  initialized. 
Thus,  the  file  number  assignments  will  vary  among  models  and  runs  of  the 
same  model.  When  a file  number  is  stored  in  PERMAT  in  an  attribute  set 
of  type  QUEUE (fcntyp) , the  form  "QUEUE (fcntyp) . n"  is  used  to  identify  the 
location  where  a file  number  is  stored.  In  this  notation  n is  the  index 
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of  the  element  in  the  attribute  set  that  contains  the  GASP  file  number 
and  "fcntyp"  is  a function  type  code  such  as  MNOD  or  SNOD.  The  attributes 
of  a file  entry  and  the  ranking  scheme  for  a file  are  defined  under  the 
module  description  headings  Verp  inputs  and  Verb  Outputs. 

7 . Permanent  Attributes  Accessed 

This  and  the  next  two  headings  --  Verb  Inputs  and  Verb  Outputs  -- 
are  related  in  that  they  all  deal  with  data  transmission  among  modules  and 
between  modules  and  the  data  storage  areas.  Thus,  an  initial  point  is  that 
they  all  deal  with  internal  data  transmission  as  distinguished  from  card 
inputs  or  other  input  or  output  involving  external  files. 

In  discussing  this  internal  data  flow,  it  is  useful  to  distinguish 
between  permanent  and  temporary  data.  The  phrase  "permanent  data"  refers 
to  data  stored  in  locations  whose  variable  names  and  the  system  characteris- 
tics they  represent  are  fixed  throughout  a run.  All  of  the  data  in  PERMAT, 
in  other  permanent  attribute  storage  areas,  and  in  the  statistics  counters 
are  of  this  type.  The  phrases  "temporary  data"  refers  to  all  data  that  are 
not  permanent.  It  includes  such  things  as  the  content  of  array  POOL  through 
which  PERMAT  attribute  sets  are  transmitted,  the  content  of  arrays  ATRIB 
and  HOLD  through  which  attributes  of  temporary  entities  stored  in  the  GASP 
filing  array  are  transmitted,  and  the  variables  IQ,  KRA,  and  KRB,  used  to 
designate  GASP  file  numbers  and  ranking  schemes.  Utility  variables  IZSWT 
and  ZSWT  in  /ZMAWSY/  are  also  often  used  for  temporary  data.  The  dynamic 
storage  areas  in  which  the  GASP  files  and  MAWLOGS  stacks  are  stored  also 
contain  temporary  data,  but  these  areas  are  accessed  directly  only  by  a few 
simulation  service  routines  and  so  are  not  often  referred  to  in  the  module 
descr i pt i ons . 

The  term  "permanent  attributes"  refers  to  those  elements  of  per- 
manent data  that  characterize  aspects  of  the  logistic  system  being  simulated. 
Examples  are  policy  parameters  such  as  a reorder  point,  resource  characteris- 
tics such  as  the  price  of  an  item,  and  the  capacity  and  response  characteris- 
tics of  such  system  elements  as  t ransporat ion  links  or  materiel  handling 
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and  storage  points.  Data  such  as  statistics  counters  and  statistics  indica- 
tors and  indexes,  or  the  GASP  file  descriptors  stored  in  /GSPflL/  are 
examples  of  permanent  data  that  are  not  permanent  attributes. 

Two  other  terms  remain  to  be  defined:  "module  inputs"  and  "module 

outputs."  A module  input  is  any  variable  whose  value  (a)  was  determined 
outside  Lhe  module  and  (b)  influences  the  logical  path  taken  in  the  module 
or  the  amount  by  which  a module  output  variable  will  be  changed.  A module 
output  is  any  variable  whose  value  may  be  changed  by  the  module.  Inputs 
and  outputs  may  be  either  permanent  or  temporary  data.  Further  discussion 
of  inputs  and  outputs  may  be  found  in  the  next  two  subsections. 

Here,  it  will  suffice  to  summarize  the  overall  conventions  govern- 
ing the  content  of  the  three  sections:  Permanent  Attributes  Accessed, 

Verb  Inputs,  and  Verb  Outputs.  Permanent  Attributes  Accessed  lists  all 
permanent  attributes  retrieved  by,  stored  by,  or  modified  by  a module.  Verb 
Inputs  does  not  list  all  inputs;  it  lists  only  inputs  that  are  not  listed 
under  the  Permanent  Attributes  Accessed  and  Statistics  Collected  headings. 
Verb  Outputs  lists  all  outputs,  temporary  and  permanent,  including  any 
entries  under  Permanent  Attributes  Accessed  whose  values  may  be  changed  by 
the  module.  The  objective  here  is  to  minimize  the  multiple  mention  of  a 
variable  while  retaining  the  utility  of  the  three  headings  under  discussion. 

The  purpose  of  the  present  heading,  Permanent  Attributes  Accessed, 
is  to  list  in  one  place  those  principle  variables,  by  which  the  status  of 
the  logistic  system  is  represented  in  the  model,  that  have  interplay  in  a 
module.  From  the  point  of  view  of  the  student  of  the  logistic  system,  it 
is  just  this  aspect  of  the  module  that  is  of  interest.  An  element  of  an 
attribute  set  in  PERMAT  is  referenced  in  the  following  notation  --  FUNC(arg) 
.m,  where  FUNC  is  a PERMAT  function  name  representing  an  attribute  set  type, 
such  as  SICOM,  arg  is  the  argument  type,  such  as  "item,"  and  m is  the  index 
of  the  element  in  the  attribute  set. 

8 . Verb  Inputs 

The  data  described  under  this  heading  are  a subset  of  the  total 
internal  verb  inputs.  Categories  not  described  are  the  statistics  indicators 
and  indexes  implied  by  the  entries  under  the  heading  Statistics  Collected 
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and  any  inputs  _.nd er  Permanent  Attributes  Accessed.  Inputs  that  are  listed 
include  primarily  temporary  data.  A major  type  of  temporary  input  is  the 
set  of  attributes  associated  with  a temporary  entity,  usually  received  in 
arrays  ATRIB  or  HOLD.  Inputs  are  listed  under  major  subheadings  indicating 
their  source,  such  as  Calling  Program,  PS  I (parameter  slot  1),  Verb  DISTR. 
The  purpose  of  the  Verb  Inputs  section  is  to  facilitate  determination  of 
whether  the  verb  will  fit  in  a particular  parameter  slot  and  to  facilitate 
the  writing  of  new  verbs  which  may  be  used  in  conjunction  with  this  verb. 

9 . Verb  Outputs 

The  general  purpose  of  this  section  is  similar  to  that  for  Verb 
Inputs  --  to  facilitate  determining  whether  one  verb  meshes  with  another 
and  to  facilitate  the  writing  of  new  verbs  that  mesh  with  existing  verbs. 
The  outputs  are  listed  under  major  subheadngs  representing  their  destina- 
tion --  PSI,  PS2,  ...,  Calling  Program,  Permanent  Attributes,  and  any 
other  suitable  headings  such  as  the  names  of  subroutines  or  verbs  called 
directly.  Only  variables  the  module  was  designed  to  affect  are  listed. 
Thus,  for  example,  if  a set  of  temporary  attributes  is  input  to  the  module 
and  is  not  changed  by  it,  they  are  available  for  use  by  a subsequent  module 
and  in  this  sense  may  be  thought  of  as  having  been  "output"  by  the  current 
module.  But  if  the  current  module  will  never  change  any  of  the  attributes 
and  is  not  naturally  thought  of  as  "producing"  an  event  of  the  type  repre- 
sented by  the  input  attributes,  these  attributes  will  not  be  listed  under 
Verb  Outputs.  The  same  is  true  of  any  other  temporary  data  that  are  input 
but  not  changed. 

10.  Programs  Cal  led 

Any  programs  called  directly  by  the  module  are  named  here,  with 
the  exception  of  a few  whose  use  is  very  common.  These  are  CALLOG,  RETLOG, 
and  LINK  for  stack  accessing;  STAT1  for  statistics  collection;  and  PP00L, 
GP00L , PP00L,  CHPMT , PRMT , and  SETPMT  for  PERMAT  accessing. 

I 1 . Input/Output  Files  Used 

The  files  referred  to  here  are  external  files  as  distinguished 
from  GASP  files.  They  are  identified  in  terms  of  their  FORTRAN  logical 
file  numbers  and  general  contents. 
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CHAPTER  I I 

SUPPLY  MODULE  FAMILY  DESCRIPTION 

This  part  of  the  MAWLOGS  Module  Catalog  describes  the  continuous  supply 
modules  that  have  been  developed  and  used  in  conjunction  with  the  continuous 
flow  service  modules  described  in  Part  6 of  this  catalog.  These  supply 
modules  can  be  used  to  represent  both  army- i n-the-f i e 1 d supply  activities 
and  CONUS  depot  or  wholesale  activities.  This  module  family  differs  from 
the  Field  Supply  Module  Family  described  in  Part  2 of  the  Module  Catalog' 
in  the  level  of  detail  at  which  the  supply  activities  are  simulated.  The 
original  MAWLOGS  supply  modules  were  discrete-event  in  nature  and  represented 

individual  demands  for  items  on  an  item  by  item  basis.  These  new  continuous 

flow  modules  consider  a rate  of  demand  for  a specified  amount  of  a class  of 

supply  and  a rate  of  receipt  of  materiel  in  a class  of  supply.  This  method 

of  representation  is  very  useful  in  representing  a system  with  a large  number 
of  supply  items  or  a large  number  of  demands. 

A.  CONTINUOUS  SUPPLY  CLASS  CONCEPT 


The  new  supply  logic  makes  it  possible  to  simulate  a logistic  system 

with  a large  number  of  items  and  a high  activity  level  in  a single  model. 

This  logic  is  based  on  the  idea  of  simulating  complex  systems  in  terms  of 

rates  and  levels  of  aggregated  resources.  This  is  the  approach  described 

2 3 

by  Forrester  in  1961  in  Industrial  Dynamics  and  implemented  in  the  DYNAMO 
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simulation  language.  It  may  be  contrasted  with  the  item  and  transaction 
detail  simulated  by  the  previous  MAWLOGs'  supply  module  family  as  follows: 

(1)  Supply  operations  are  viewed  in  terms  of  large  aggregations  of 
items  instead  of  individual  items 

(2)  The  flows  of  information  and  materiel  are  regarded  as  continuous 
streams  instead  of  discrete  requisitions  and  shipments 

(3)  The  current  rates  of  materiel  flow  in  response  to  a demand  flow 
are  considered  to  depend  on  the  current  levels  of  inventory, 
materiel  due  in,  and  materiel  due  out  for  the  aggregate  items 

(A)  The  current  levels  of  materiel  in  storage  and  in  transit  are 

in  turn  considered  to  depend  on  the  current  flow  rates,  some  of 
which  tend  to  increase  a particular  level,  some  of  which  tend 
to  decrease  it,  instead  of  on  the  effect  of  individual  demands 
and  issues  by  item 

(5)  Simulation  time  advances  in  even  steps  whose  length  is  set  as  an 
input  parameter,  instead  of  in  the  randomly  sized  steps  charac- 
teristic of  discrete-event  models,  and 

(6)  All  system  status  variables  (rates  and  levels)  are  updated  every 
time  step,  instead  of  selecting  updating  by  randomly  spaced 
"events"  characteristic  of  discrete-event  models. 

Figure  I 1-1  is  an  attempt  to  illustrate  in  rate/level  terms  the  simu- 
lation of  the  activities  of  a supply  point  with  respect  to  a category  of 
items.  The  supply  point  has  two  input  rates  - demands  from  customers  and 
receipts  from  higher  echelons  - and  two  output  rates  - demands  to  higher 
echelons  and  issues  to  customers.  All  of  these  flows  are  expressed  in 
weight  units  per  day.  The  status  of  the  supplies  for  this  item  category 
at  the  supply  point  is  represented  by  three  levels  - balance  on  hand  (BOH), 
Quantity  due  in  (QDl),  and  quantity  due  out  (QDO).  These  are  expressed  in 
weight  units.  The  performance  of  the  supply  point  would  be  further  charac- 
terized by  policy  parameters  or  by  the  results  of  applying  the  policy  to 
the  items  in  the  category  at  the  node  as  demand  accommodation  (DACC),  demand 
fill  rate  (DFILL),  and  the  rate  at  which  backorders  (due  outs)  are  filled 
from  receipts  (BOFILL). 
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ABOH  = AT  * DACC  [ RR  * (1-BOFILL)  - DR  * DFILL] 


Figure  11-1.  Aggregated  Supply  Logic 
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The  demand  accommodation  is  used  to  split  the  incoming  demand  stream 
into  two  parts  - a part  that  is  fringe  to  the  stockage  list  and  so  is 
passed,  and  a part  that  is  "accommodated"  by  the  stockage  list,  against 
which  there  exists  a stockage  objective.  DFILL  of  the  damand  that  matches 
the  stockage  list  is  satisfied  by  issuing  from  stock,  the  remainder  is 
backordered.  The  perceived  demand  rate  for  stockage  list  items  eventually 
affects  the  replenishment  ordering  rate  through  the  effect  of  reducing 
stocks  to  the  reorder  point.  Similarly,  the  incoming  receipt  stream  is 
split  into  two  principal  parts  - one  that  represents  response  to  passed 
customer  demands,  and  one  that  represents  response  to  replenishment  orders. 

The  former  is  passed  on  to  the  customers.  The  latter  receipt  stream  is 
split  into  a part  that  satisfies  due-outs  and  a part  that  goes  into  stock. 

The  quantity  due  out  and  quantity  due  in  levels  are  decremented  respectively. 

The  equation  at  the  bottom  of  the  figure  shows  how  the  balance  on  hand 
level  would  be  updated  at  each  time  step  in  terms  of  the  current  rates  and 
policy  parameters.  A T is  the  time  step,  A BOH  is  the  change  in  BOH  due  to 
the  effects  of  the  pertinent  parts  of  the  incoming  demand  rate  (DR)  and 
the  receipt  rate  (RR)  over  the  most  recent  time  step.  Similar  equations 
could  be  written  to  show  changes  in  the  due-in  and  due-out  levels,  and  to 
update  the  outgoing  rates  in  terms  of  the  incoming  rates  and  the  levels. 

Crucial  to  a successful  representation  of  the  supply  point  in  these 
terms  is  a knowledge  of  the  relation  between  the  splitting  factors  DFILL 
and  BOFILL  and  the  stock  status  levels.  Of  course  they  ultimately  depend 
on  the  interaction  of  the  item  supply  policies  with  the  item  demand  rates. 
Examples  of  two  fill  curves  are  shown  in  Figure  11-2.  Fill  curves  are  used 
to  represent  the  aggregate  behavior  for  categories  of  items  in  a realistic 
manner,  rather  than  the  "all  or  nothing"  behavior  of  most  step  function 
models.  The  curve  on  the  left  indicates  what  percent  of  the  ASL  demand 
into  a supply  point  can  be  filled  based  on  the  actual  stock  on  hand  and  the 
average  quantity  demanded.  As  would  be  expected  the  percent  filled  diminishes 
as  the  stock  on  hand  diminishes.  Similarly,  the  percent  of  the  receipt 
rate  which  is  used  to  fill  due  outs  at  the  supply  points  is  determined  from 
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the  ratio  of  the  actual  due  outs  level  to  the  actual  due  in  level.  If  this 
ratio  is  small  then  a small  percentage  of  the  receipts  is  used  to  satisfy 
due  outs. 

In  general,  the  flow  of  materiel  is  represented  between  the  supply 
nodes  in  a model  for  a class  of  supply  in  a full  circle.  Demands  are  gen- 
erated and  passed  through  the  system  until  filled  and  then  receipts  are 
followed  as  receipt  rates  back  to  the  demanding  node.  Alternate  return 
paths  are  also  set  up  as  subloops  in  the  circular  path  from  alternate 
sources  of  supply.  Each  of  the  classes  and  priority  of  materiel  at  a demand 
generation  node  will  have  this  complete  linkage  structure.  Thus,  the  number 
of  classes  and  priorities  is  the  determining  factor  in  the  size  of  the  model, 
rather  than  the  activity  level  in  an  item  based,  discrete  event  model. 

Certain  alternations  from  the  single  class  path  from  demand  generation 
node  to  source  and  back  again  can  be  made  to  represent  the  activities  at  a 
node  in  greater  detail.  A single  class  flow  rate  can  be  split  into  multiple 
classes  at  a given  node  to  represent  different  inventory  levels  or  response 
times.  This  process  utilizes  class  splitting  factors  that  specify  what 
percentage  of  the  flow  will  be  sent  into  each  separate  path.  The  receipt 
rates  from  these  multiple  classes  are  then  merged  together  to  determine  the 
receipt  rate  for  the  original  class. 

B.  SUPPLY  ACTIVITIES 


The  modules  in  the  Continuous  Supply  Family  represent  the  general 
activities  of  demand  processing,  forecasting,  replenishment,  and  receipt 
processing.  Table  I 1-1  describes  the  modules  currently  available  in  the 
f ami  1 y . 

Several  varieties  of  supply  nodes  may  be  described  with  the  current 
family  of  continuous  supply  modules.  Figure  I I - 3 shows  a standard  supply 
node  which  receives  demands  from  a demand  generator  node  and  passes  demands 
to  a higher  echelon.  Note  that  this  node  uses  the  utility  verb  RLOOP  to 
loop  on  all  EXRAT  datasets  for  this  node  which  are  primed  by  the  module 
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TABLE  I 1-1.  CONTINUOUS  SUPPLY  MODULES 


NAME 

DESCRIPTION 

DEMAND 

PROCESSING  VERBS 

ACSUP 

NONSIMPLE  VERB  TO  HANDLE  ACCOUNT 
SUPPLY  ACTIVITIES 

CBOP 

DERIVE  BACKORDER  RATE  AND  PASS  DEMAND 

CBO 

DERIVE  BACKORDER  RATE 

CDMDS 

PROCESS  DEMANDS  FOR  SUPPLIES 

CICPD 

ICP  AND  CONUS  DEPOT  PROCESSING 

CISSU 

CONTINUOUS  ISSUE  - CONVERTS  1 FS  AND 
1 ABO  RATES  TO  RETURN  FLOW  RATES 

C ISUI 

CONTINUOUS  ISSUE  TO  AN  INDIVIDUAL 
CUSTOMER 

CPALL 

PASS  ALL  ASL  DEMANDS 

CPAS  1 

UPDATE  PASSED  DEMAND  RATE  FOR  AN 
INDIVIDUAL  ACCOUNT 

CPASS 

UPDATE  PASSED  DEMAND  RATE 

CPNBO 

PASS  DEMAND  AND  DO  NOT  BACKORDER 

CSUP 

MAINTAIN  STOCK  STATUS  AND  CONTROL 
SUPPLY  PROCESSING 

PASSL 

PASS  UNFILLED  LOSS  DEMAND 

RECEIPT 

PROCESSING  VERBS 

CDIVR 

CONTINUOUS  SUPPLY  DIVERSION,  DIVERTS 
A PORTION  OF  A RECEIPT  FLOW  TO 
ANOTHER  DESTINATION 

CRCPT 

PROCESS  CONTINUOUS  RECEIPTS 

CRT  1 

RECEIPT  OF  CONTINUOUS  TURN-INS 

CSTI 

CONTINUOUS  TURN-INS  OF  STOCKS 

CTI 

PROCESS  TURN-INS  RECEIVED 

DUPDI 


GENERATES  DUPLICATE  DUE- 1 NS  TO  REFLECT 
DUPLICATE  ORDERING  SUCH  AS  AT  THE  WAR 
RESERVE 


11-7 


■ m 


THE  BDM  CORPORATION 


TABLE  11-1.  CONTINUOUS  SUPPLY  MODULES  (CONTINUED) 


NAME 


CLAS 

CLRXN 

CLSPC 

CREPL 

CSMAP 

CSRPT 

LARPL 

MDENS 

MDLY 

MSET 

PLOOP 

PRDST 

PRSPL 

RDENS 

RLOOP 

RLPDS 

RLSGN 

RLTGN 


DESCRIPTION 


MISCELLANEOUS  VERBS 

SETS  VARIABLES  IN  /SUPC/  FOR  CLASS 
AND  NODE  NUMBER 

CLEAR  ARRAY  XN  IN  /SUPC/ 

CLEAR  /SUPC/ 

GENERATES  REPLENISHMENT  ORDER 

MAPS  CONTINUOUS  SUPPLY  VARIABLES 
FROM  ONE  NODE  TO  ANOTHER  TO  SIMULATE 
MERGING  OF  NODES 

CONTINUOUS  SUPPLY  REPORT 

LOOK-AHEAD  REPLENISHMENT  RATE 

ASSIGN  DENSITY  FOR  CURRENT  MANAGEMENT 
CLASS  PORTION  OF  A RATE 

RETRIEVE  MDLY  DATASET;  CREATE  ONE 
IF  IT  DOES  NOT  EXIST  FOR  THIS  MODE 
AND  CLASS 

SET  MCLASS  INDEX  M IN  /SUPC/ 

LOOP  ON  PRIORITY  IN  /SUPC/ 

PRINT  SINGLE  DATASET  TYPE  CONTENTS 

SPLITS  EXOGENOUS  DEMAND  INTO 
PRIORITY  STEAMS 

ASSIGN  DENSITY  TO  A RATE  STACK 
ENTRY  AS  A WEIGHTED  AVERAGE  OF 
M-CLASS  DENSITIES 

LOOPS  ON  LINKED  DATASETS  OF  A 
SPECIFIED  TYPE 

INPUT  VERB  FOR  RATE/LEVEL  PDS 
DATASETS;  SETS  UP  RATE/LEVEL 
STATISTICS  COLLECTION 

RATE/LEVEL  SHIPMENT  GENERATOR 

GENERATES  EXOGENOUS  TURN-IN  SHIPMENTS 


1-8 


THE  BDM  CORPORATION 


TABLE  I 1-1.  CONTINUOUS  SUPPLY  MODULES  (CONTINUED) 


NAME 


DESCRIPTION 


SETPR 

SFM 

SLOSS 

SUMXI 

TFILL 

TOCCP 

UDDMD 

UDRAT 


WRCKF 


MISCELLANEOUS  VERBS  (CON'T) 

SETS  PRIORITY  VARIABLE  IN  /SUPC/ 

RETRIEVE  MANAGEMENT  CLASS  SPLITT.NG 
FACTORS 

SUPPLY  INVENTORY  LOSSES 

SUMS  THE  XI  VARIABLES  IN  /SUPC/ 

RETURN  VALUE  FROM  A PIECEWISE  LINEAR 
FUNCTION  IN  DTA8LE 

SEND  FLOW  TO  A CONTAINERIZATION  AND 
CONSOLIDATION  POINT 

UPDATES  DEMAND  RATES  FOR  A NODE, 
CLASS,  AND  PRIORITY 

UPDATES  DEMAND  AND  RETURN  RATES 
EXISTING  A NODE  FOR  A GIVEN  CLASS 
AND  PRIORITY 

CHECKS  WAR  RESERVE  FILL  PERFORMANCE 
AGAINST  A THRESHOLD 


SN ODE.  RLNOD  (P  = * SNODE,  ).),  + R/L  NODE  NAME 

RLOOP  (P  = * EXRAT  $ + LOOP  ON  EXOGENOUS  RATES 
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RLDGN  in  an  exogenous  demand  generator  node.  The  main  supply  module  CSUP 
is  used  to  control  processing  of  demand  and  receipt  rates  and  to  define 
demand  and  receipt  links  during  the  model  setup  phase.  Parameter  Slot  1 
(PS1)  of  CSUP  contains  PLOOP  to  loop  on  the  priorities  of  materiel  handled 
when  processing  demand  rates  in  CDMDS  and  receipt  rates  in  CRCPT.  PS2  of 
CDMDS  is  defined  so  that  high  priority  demands  that  can't  be  filled  are 
passed,  while  low  priority  demands  are  back  ordered  only.  PS2  of  CSUP 
defines  the  rate  links  for  this  node.  There  is  a primary  demand  path  with 
an  exogenous  demand  link  into  SNODE,  a demand  link  into  the  supporting 
node  SUPRT,  and  a demand  link  into  node  CONUS,  all  defined  by  RLDLK.  There 
are  primary  and  secondary  receipt  paths  defined  by  BRLKR  and  RLRLK.  The 
primary  receipt  links  from  node  CONUS  have  different  delay  times  for  the 
two  priorities.  The  secondary  receipt  path  from  SUPRT  is  defined  in  PS2 
of  BRLKR.  The  nodes  that  utilize  these  receipt  paths  are  not  specified  in 
this  node  description,  but  are  at  the  node  where  the  demand  is  filled. 

An  example  of  a supporting  node  that  is  compatible  with  SNODE  is  shown 
in  Figure  11-4.  The  first  subnode  processes  the  demand  rates  from  all 
supported  nodes  that  are  linked  into  the  node  SUPRT.  This  is  accomplished 
through  the  use  of  RLOOP  on  datasets  of  type  FCRAT  and  the  verb  CDMDS. 

Issue  rates  and  passing  rates  for  the  individual  supported  nodes  are  cal- 
culated by  CISUI  and  CPASI  respectively.  This  node  uses  the  secondary 
receipt  path  for  issue  of  materiel,  indicated  by  the  second  argument  in  CISUI 
Passed  demands  follow  the  primary  demand  path,  as  indicated  in  the  second 
argument  of  CPASI.  Subnode  2 handles  the  supply  replenishment  for  the 
inventory  at  node  SUPRT.  MLOOP  is  used  to  loop  on  all  classes  at  this  node 
and  SETPR  is  used  to  indicate  that  all  replenishment  demands  are  low  priority 
Replenishment  demand  rates  are  calculated  by  LARPL  and  replenishment  receipts 
are  processed  by  CRCPT.  PS2  of  CSUP  is  used  to  define  the  demand  and  receipt 
links  for  the  node  SUPRT,  to  and  from  the  node  CONUS. 

Figure  11-5  shows  a simple  source  of  supply  node  named  CONUS.  This 
node  loops  on  all  incoming  demand  rates  in  the  FCRAT  datasets  and  uses  the 
basic  verbs  CICPD  and  TOCCP  to  determine  the  fill  rate  and  update  the  first 
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receipt  rate  referenced  in  the  FCRAT  dataset.  Containerization  of  receipt 
shipments  could  be  added  to  this  node  in  the  first  parameter  slot  of  CICPO, 
utilizing  the  FCASN  and  FCLOD  verbs  as  described  in  the  Containerization 
Family,  Part  8 of  the  Module  Catalog. 
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+ SUBNODE  I PROCESSES  DEMANDS  FROM  SUPPORTED  NODES 


SUPRT.  RLNOD  (P  = ' SUPRT,  12.),  + 

CLSPC,  + 

RLOOP  (P  = * FCRAT  $ + 

I = CLAS,  MSET,  + 

+ 

CDMDS  (P  = 0$  + 

1 = TFILL  $ + 

2 = CPNBO)  , + 

CISUI  (P  = 0.2,  1 . ) , + 

CPAS  I (P  = 0,  1)  , + 


SET  R/L  NODE  NAME 
CLEAR/SUPC/COMMON 
LOOP  ON  FCRAT  DATASETS 
SET  CLASS,  MANAGEMENT 
CLASS 

DEMAND  PROCESSING 

DEMAND  SATISFACTION 

NO  BACKORDER  ON  PASSED 
DEMANDS 

ISSUE  STOCK 

PASS  DEMANDS  NOT  FILLED 


SUPRT  .2 


+ 


+ SUBNODE  2 CALCULATES  REPLENISHMENT  RATE  AND  DEFINES  LINKS  FOR  SUPRT  NODE 
+ 


111  MLOOP  (I 


NXTND  S 


SETPR 

(P  = 2.), 

CSUP 

(P  = OS 

1 = LARPL 

(P  = 0,1), 

CRCPT 

(P  = o)$ 

2 = RLRLK 

(P  = * SUPRT, 

RLDLK 

(P  = * CONUS, 

+ SET  LOW  PRIORITY 

+ SUPPLY  PROCESSING 

+ REPLENISHMENT  DEMANDS 


+ 

RECEIPT  PROCESSING 

8. 

) , + 

R 1 LO  FROM  CONUS 

0. 

:)),+ 

D 1 LO  TO  CONUS 

Figure  11-4.  Example  Support  Node 
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+ SOURCE  OF  SUPPLY  PROCESSING  TO  FILL  DEMANDS,  POSSIBLY 
+ AFTER  BACKORDER  DELAYS. 

+ 

CONUS.  RLNOD  (P  = * CONUS,  15.), 

RLOOP  (P  = * FCRAT  $ + LOOP  ON  INCOMING  RATES 

I = CLSPC , CLAS,  MDLY , MSET,  + CLEAR/SUPC/,  SET  CLASS 

CICPD,  + FILL  BY  ACCOUNT  PRIORITY 

AND  CLASS 

TOCCP  (P  = 1),  + SEND  RECEIPT  RATE 

* NXTNO  $ 


Figure  ll~5.  Example  Source  Node 
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CHAPTER  I I I 

RATE/LEVEL  SUPPLY  DATA  STRUCTURE 

The  continuous  supply  modules  are  compatible  with  the  continuous  flow 
service  module  family  data  structure  and  linkage  structure  as  described  in 
Part  6 of  this  Module  Catalog.  The  modules  in  this  family  utilize  a number 
of  PDS  datasets  and  a common  block  named  /SUPC/.  Each  of  the  datasets  and 
the  variables  in  the  common  block  /SUPC/  are  defined  in  this  chapter. 

A.  PDS  DATASETS 

The  PDS  tables  which  are  utilized  by  the  modules  in  this  volume  are 
defined  in  Table  I I 1-1.  Most  of  the  datasets  for  supply  modules  fall  in 
three  general  categories:  (1)  those  related  to  a particular  node  in  table 

RLNODE,  (2)  those  related  to  a particular  node  and  class  of  supply  or 
class  and  priority  combination  in  table  RLNC,  and  (3)  those  related  to  a 
particular  node  for  a class  of  supply  flow  originating  from  a different 
node  in  RLNCN.  Two  special  cases  are  the  RLD  datasets  in  table  RLDLY  and 
the  RATATT  datasets  in  table  RATTR.  RLD  datasets  are  referenced  by  the 
rate/level  delay  index  assigned  when  the  delay  dataset  is  first  created. 

The  RATATT  datasets  are  referenced  by  the  index  to  the  rate  stack  in  array 
DTABLE . 

The  PDS  dataset  types  with  their  coordinates  are  listed  in  Table  MI-2. 
Definitions  of  the  elements  for  each  of  these  datasets  are  given  in  Tables 
I I 1-3  through  111-21.  Certain  datasets  that  deal  with  rate/level  linkage 
stacks  and  rate/level  delays  are  dealt  with  more  completely  in  Part  6 of 
the  Module  Catalog,  Continuous  Service  Modules.  The  key  supply  dataset  is 
FCSTKS  which  contains  the  stock  status,  flow  rates,  and  policy  parameter 
for  each  node  and  class  of  supply.  Four  of  the  dataset  types  in  Table  I I I -2 
are  generated  automatically  by  modules  and  need  not  be  specified  in  the 
input  data  stream.  These  four  are  LDSC,  MDLY,  RATATT,  and  RLD. 
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TABLE  I I 1-1.  PDS  TABLES  USED  BY  RATE/LEVEL  SUPPLY 


NAME  (COORDINATES)  DESCRIPTION 


CLASS  (CLASS) 

RLDLY  (DLYIX) 

RLNC  (NODE,  CLASS) 

RLNCN  (NODE  1 , CLASS,  N0DE2) 

RLNODE  (NODE) 

RATTR  (RSTKIX) 


CLASS  ATTRIBUTES 

RATE/LEVEL  DELAYS 

DATASETS  WITH  COORDINATES 
(NODE,  CLASS) 

DATASETS  WITH  COORDINATES 
(NODE,  CLASS,  NODE) 

DATASETS  WITH  COORDINATES  (NODE) 

DATASETS  WITH  COORDINATES  (RATE 
STACK  INDEX) 
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TABLE  MI-2.  PDS  DATASET  TYPES  USED  BY  RATE/LEVEL  SUPPLY 


NAME  (COORDINATES) 


DESCRIPTION 


EXRAT  (NODE,  CLASS) 

EXT  I (NODE,  CLASS) 

FCDIVR  (NODE  1 , CLASS,  NODE2) 
FCDMD  (NODE,  CLASPR) 

FCRAT  (NODE,  CLASPR) 

FCRCPT  (NODE,  CLASPR) 

FCSTKS  (NODE,  CLASS) 

LAFC  (NODE) 

LDSC  (NODE) 

MDLY  (NODE  1,  CLASPR,  NODE  2) 


MGTCL  (NODE) 

MGTSF  (NODE  I,  CLASPR,  NODE  2) 

NODMAP  (NODE) 

PRIORY  (NODE) 

OBOX  (NODE,  CLASS) 

RATATT  (RATE  STACK  INDEX) 

RLD  (DELAY  INDEX) 

SLOSS  (MODE,  CLASS) 

WR  (NODE,  CLASS) 


EXOGENOUS  DEMAND  RATE 

EXOGENOUS  TURN-INS 

DIVERSION  FACTORS 

DEMAND  PROCESSING  PARAMETERS 

RATE  STACK  POINTERS  FOR  DEMANDS 
AND  RECEIPTS 

RECEIPT  PROCESSING  PARAMETERS 

STOCK  STATUS,  INCLUDING  FLOW  RATES 
AND  SOME  POLICY  PARAMETERS 

LOOK  AHEAD  FACTORS 

POINTER  TO  LIST  OF  RATE  DATASET 
TYPES  LINKED  TO  CURRENT  NODE 

INDEXES  OF  RATE/LEVEL  DELAYS 
AT  NODE  2 CONTAINING  FLOW 
ORIGINATING  AT  NODE  1 FOR  CLASS 
CLASPR,  ONE  DELAY  INDEX  PER 
MANAGEMENT  CLASS  AT  NODE  2. 

MANAGEMENT  CLASSES  AT  NODE 

MANAGEMENT  CLASS  SPLITTING  FACTORS 
AT  NODE  2 FOR  CLASPR  DEMANDS 
FLOWING  FROM  NODE  1 . 

NODE  MAPPING  FACTORS 

PRIORITIES  AT  THE  NODE 

ORDERS  "BOXCAR  TRAIN,"  I.E.,  DUE-IN 
ACCUMULATOR,  USED  TO  MEASURE  COST 

ATTRIBUTES  OF  RATE  STACK  ENTRY 
STORED  AT  "RATE  STACK  INDEX"  IN 
DTABLE 

RATE/LEVEL  DELAY  DATASET 
SUPPLY  LOSS  CHARACTERISTICS 
WAR  RESERVE  FACTORS 


m-3 


THE  BDM  CORPORATION 


TABLE  MI-3-  EXOGENOUS  DEMAND  RATE  PDS  DATASET 
EXRAT  (NODE,  CLASS) 


ATTRIBUTE  NAME 


DESCRIPTION 


1 EXDMDI 


INDEX  IN  PARAM  OF  EXOGENOUS  DEMAND 
RATE 


2 DAREXP 


EXOGENOUS  DEMAND  ARRIVAL  RATE  STACK 
POINTER 


3 FPRI1 


FRACTION  OF  EXOGENOUS  DEMAND  THAT  IS 
OF  PRIORITY  PRI 1 (SEE  PRIORY) 


A FPRI2 


FRACTION  OF  EXOGENOUS  DEMAND  THAT  IS 
OF  PRIORITY  PR  1 2 (SEE  PRIORY) 


5 FPR I 3 


FRACTION  OF  DEMAND  LEAVING  ACCOUNT 
THAT  IS  PR  11 


M 1-/4 


A 
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TABLE  I I I -A . EXOGENOUS  TURN-IN  RATE  PDS  DATASET 
EXT  I (NODE,  CLASS) 


ATTRIBUTE  NAME 

1 I XT  I R 

2 T I RATE 


DESCRIPTION 

INDEX  IN  PARAM  OF  EXOGENOUS  TURN-IN 
RATE 

CURRENT  TURN-IN  RATE 


TABLE  111-5.  DIVERSION  FACTORS 
FCDIVR  (NODE  1 , CLASS, 


PDS  DATASET 
NODE  2) 


ATTRIBUTE  NAME 


I DIVFAC 


DESCRIPTION 


FRACTION  OF  FLOW  RATE  WHICH  IS  TO 
BE  DIVERTED  TO  NODE  2 FROM  NODE  1 


2 


DIVDLY 


RATE/LEVEL  DELAY  TO  BE  USED  FOR 
DIVERTED  MATERIEL 
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TABLE  I I I -6. 


DEMAND  PROCESS 
FCDMD  (NODE 


NG  PARAMETERS 
CLASPR) 


PDS 


DATASET 


ATTRIBUTE  NAME 


DESCRIPTION 


1 PFILD1 


2 PFILD2 


ALPHA  PARAMETER  OF  WE  I BULL  DEMAND 
FILL  CURVE  OR  NEGATIVE  INDEX  OF  INPAR 
TABLE  CONTAINING  FILL  CURVE 

BETA  PARAMETER  OF  WE  I BULL  DEMAND 
FILL  CURVE 


3 PFILD3  GAMMA  PARAMETER  OF  WE  I BULL  DEMAND 

FILL  CURVE 


k 

DFILL 

WEI  BULL  FUNCT 
CURVE 

ION  VALUE  FROM  FI 

ILL 

5 

FDLY 

INDEX  OF  FILL 

TIME  RATE/LEVEL 

DELAY 

6 DACC 


DEMAND  ACCOMODATION 
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TABLE  111-7.  DEMAND/RECEIPT  RATE  STACK  POINTERS  PDS  DATASET 
FCRAT  (NODE,  CLASPR) 


ATTRIBUTE  NAME 

1 ND 

2 NR 

3 D/RPTR 

k D/RPTR 

5 D/RPTR 

6 D/RPTR 

7 D/RPTR 


DESCRIPTION 

NUMBER  OF  DEMAND  STACKS  (INTEGER) 

NUMBER  OF  RETURN  STACKS  (INTEGER) 

FIRST  DEMAND  RATE  POINTER  TO  DTABLE 

SECOND  DEMAND  RATE  POINTER  OR  FIRST 
RECEIPT  RATE  POINTER  (DEPENDING  ON 
NUMBER  OF  DEMAND  STACKS.) 

NEXT  DEMAND/RECEIPT  RATE  POINTER 

NEXT  DEMAND/RECEIPT  RATE  POINTER 

NEXT  DEMAND/RECEIPT  RATE  POINTER 


n 


LAST  DEMAND/RECEIPT  RATE  POINTER 
(n  < 20) 


D/RPTR 
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TABLE  111-8.  RECEIPT  PROCESSING  PARAMETERS  PDS  DATASET 
PCRCPT  (NODE,  CLASPR) 


ATTRIBUTE 

NAME 

DESCRIPTION 

1 

PFILB1 

ALPHA  PARAMETER  OF  WEI  BULL  BACKORDER 
FILL  CURVE 

2 

PFILB2 

BETA  PARAMETER  OF  WEI  BULL  BACKORDER 
FILL  CURVE 

3 

PFILB3 

GAMMA  PARAMETER  OF  WEI  BULL  BACKORDER 
FILL  CURVE 

4 

BFILL 

WE  1 BULL  FUNCTION  VALUE  FROM  BACKORDER 
FILL  CURVE 

5 

RDLY 

INDEX  OF  RECEIPT  PROCESSING  DELAY 

6 

RACCS1 

RECEIPT  ACCOMODATION  FOR  RETURNS 
FROM  1ST  SOURCE 

7 

RACCS2 

RECEIPT  ACCOMODATION  FOR  RETURNS 
FROM  2ND  SOURCE 

(RECEIPT  ACCOMMODATION  FRACTION  OF  RECEIPTS  FOR  ASL  ITEMS) 
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TABLE  111-9.  STOCK  STATUS  PDS  DATASET 
FCSTKS  (NODE,  CLASS) 


ATTRIBUTE 

NAME 

DESCRIPTION 

1 

AOHL 

ACTUAL  ON  HAND  LEVEL 

2 

adil 

ACTUAL  DUE- IN  LEVEL 

3 

ADOL 

ACTUAL  DUE-OUT  LEVEL 

4 

DOHL 

DESIRED  ON  HAND  LEVEL 

5 

DOHF 

DESIRED  ON  HAND  FACTOR  (MULTIPLIES 
DAR) 

6 

DAR 

DEMAND  ARRIVAL  RATE 

7 

SOAR 

SMOOTHED  DEMAND  ARRIVAL  RATE 

8 

DPASR 

DEMAND  PASSING  RATE  (INCLUDES  BOPR) 

9 

IFSR 

ISSUE  FROM  STOCK  RATE 

10 

BOP 

BACKORDER  CREATION  RATE 

1 1 

REPLR 

REPLENISHMENT  RATE 

12 

SREPLR 

SMOOTHED  REPLENISHMENT  RATE 

13 

RCPTR 

RECEIPT  RATE 

14 

FDIR 

FILL  DUE-INS  RATE 

15 

POST 

PERCEIVED  ORDER/SHIP  TIME 

16 

IABOR 

1 SSUE-AGA 1 NST- BACKORDERS  RATE 

17 

RTBAS 

BASE  PERIOD 

18 

BOPR 

BACKORDER  AND  PASS  RATE 

19 

TIR 

TURN-IN  RATE  (ARRIVALS) 
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TABLE  111-10.  LOOK  AHEAD  FACTORS  PDS  DATASET 
LAFC  (NODE) 


ATTRIBUTE 

NAME 

DESCRIPTION 

1 

LAF  1 

LOOK  AHEAD  FORECAST  FACTOR  TO  INFLATE 
REPLENISHMENT  DEMAND  FOR  MCLASS  1 

2 

LAF2 

LOOK  AHEAD  FORECAST  FACTOR  TO  INFLATE 
REPLENISHMENT  DEMAND  FOR  MCLASS  2 

n 

LAFn 

LOOK  AHEAD  FORECAST  FACTOR  TO  INFLATE 
REPLENISHMENT  DEMAND  FOR  MCLASS  n 

TABLE 

111-11. 

LINKED  DATASET  COORDINATES  PDS  DATASET 
LDSC  (NODE) 

ATTRIBUTE 

NAME 

DESCRIPTION 

1 


LKDSTP 


POINTER  TO  LIST  OF  RATE  DATASET 
TYPES  LINKED  TO  CURRENT  NODE 
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TABLE  111-12.  MANAGEMENT  CLASS  DELAYS  PDS  DATASET 
MDLY  (CUSTOMER  NODE,  CLASPR,  SUPPLIER  NODE) 

ATTRIBUTE  NAME  DESCRIPTION 

1 DLYM1  RATE/LEVEL  DELAY  INDEX  FOR  MCLASS 

I AT  SUPPLIER  NODE  FOR  DEMANDS 
ORIGINATING  AT  CUSTOMER  NODE 

2 DLYM2  SAME  USE  FOR  MCLASS  2 


TABLE  111-13.  MANAGEMENT  CLASSES  PDS  DATASET 
MGTCL  (NODE) 


ATTRIBUTE 

NAME 

DESCRIPTION 

1 

NMCL 

NUMBER  OF  MANAGEMENT  CLASSES  AT 
THIS  NODE  (INTEGER) 

2 

NMCL1 

IDENTIFIER  OF  FIRST  MANAGEMENT 
CLASS 

3 

NMCL2 

IDENTIFIER  OF  SECOND  MANAGEMENT 
CLASS 

n+ 1 

NMCLn 

IDENTIFIER  OF  nTH  MANAGEMENT  CLASS 

111-11 


I 


THE  BDM  CORPORATION 
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TABLE  lll-lA.  MANAGEMENT  CLASS  SPLITTING  FACTORS  POS  DATASET 
MGTSF  (NODE  1,  CLASPR,  NODE  2) 


ATTRIBUTE 

NAME 

DESCRIPTION 

" 

1 

SFMI 

SPLITTING  FACTOR  FOR  MANAGEMENT 
CLASS  1 AT  NODE  1 FOR  CLASPR 
DEMAND  ORIGINATING  FROM  NODE  2 

n 

SFMn 

TABLE  111-15. 

SPLITTING  FACTOR  FOR  MANAGEMENT 
CLASS  n 

NODE  MAPPING  FACTORS  PDS  DATASET 
NODMAP  (NODE) 

ATTRIBUTE 

NAME 

DESCRIPTION 

1 

RLNOD 

RLNOD  NUMBER  OF  FIRST  NODE  FOR 
COORDINATE  NODE  TO  BE  MERGED  INTO 

2 

FRAC 

FRACTION  OF  RATE  FLOW  AND  INVENTORY 
LEVELS  OF  COORDINATE  NODE  THAT  WILL 
BE  MERGED  WITH  FIRST  NODE 

2n- 1 

RLNOD 

RLNOD  NUMBER  OF  nTH  NODE  FOR 
COORDINATE  NODE  TO  BE  MERGED  WITH 

2n 

FRAC 

FRACTION  FOR  nTH  NODE 

m-12 


THE  BDM  CORPORATION 


TABLE  111-16.  PRIORITIES  PDS  DATASET 
PRIORY  (NODE) 


ATTRIBUTE 

NAME 

DESCRIPTION 

1 

NPRI 

NUMBER  OF  PRIORITIES 

2 

PRI  1 

1ST  PRIORITY  NUMBER 

3 

PR  1 2 

2ND  PRIORITY  NUMBER 

n 

PRIn 

nTH  PRIORITY  NUMBER 

I 11-13 


I 


THE  BDM  CORPORATION 


TABLE  111-17.  "BOXCAR  TRAIN"  DELAY  PDS  DATASET 
OBOX  (NODE,  CLASS) 


ATTRIBUTE 

NAME 

DESCRIPTION 

1 

NMX,  10 

NUMBER  OF  BOXCARS  (I.E.,  CELLS)  IN 
BOXCAR  TRAIN  (I.E.,  SET  OF  CELLS), 
NMX;  AND  INDEX  OF  CURRENT  OLDEST 
CELL,  ! 0 

2 

NC,  INW 

NUMBER  OF  CELLS  CURRENTLY  OCCUPIED, 
NC;  AND  INDEX  OF  NEWEST  - THE  ONE 
CURRENTLY  BEING  FILLED,  INW 

3 

XW 

WIDTH  OF  A CELL,  IN  TIME  STEPS 

i* 

TOLD 

APPROXIMATE  TIME  OF  ORIGIN  OF 
OLDEST  ORDERS  CURRENTLY  IN  THE 
DATASET 

5 

FOLD 

FRACTION  OF  OLDEST  CELL  STILL 
OCCUPIED 

6 

X ( 1 ) 

AMOUNT  IN  CELL  1 

7 

X (2) 

AMOUNT  IN  CELL  2 

NMX  + 5 

X(NMX) 

AMOUNT  IN  CELL  NMX 

1 1 1 - 1 A 
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TABLE  111-18.  RATE  ATTRIBUTES  PDS  DATASET 
RATATT  (RATE  STACK  INDEX) 


ATTRIBUTE 

NAME 

DESCRIPTION 

1 

RAT  INC 

LEVEL  OF  MATERIEL  WHICH  WILL  BE  USED 
TO  INCREMENT  THE  RATE  WHEN  NEXT 
CALCULATED 

2 

DENS 

DENSITY  OF  MATERIEL  ON  RATE  LINK 

TABLE  111-19. 

RATE/LEVEL  DELAY  PDS  DATASET 
RLD  (DELAY  INDEX) 

ATTRIBUTE 

NAME 

DESCRIPTION 

1 

DTYP 

DELAY  TYPE  CODE 

2 

RLDELN 

DELAY  VALUE  (USE  VARIES  BY  TYPE  OF 

• 

• 

DELAY) 

n 

RLDELN 

DELAY  VALUE 
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TABLE  111-20. 


SUPPLY  LOSS  CHARACTERISTICS  PDS  DATASET 


SLOSS  (NODE,  CLASS) 


ATTRIBUTE  NAME 


DESCRIPTION 


1 

PRLOS 

PROBABILITY  OF  A LOSS  OF  INVENTORY 

2 

QLOSS 

INDEX  TO  A PROBABILITY  FUNCTION  IN 
PARAM  WHICH  DEFINES  THE  QUANTITY 

LOST 

3 

RPLDLY 

NEGATIVE  INDEX  TO  RATE/LEVEL  DELAY 
TO  BE  USED  FOR  REPLENISHMENT  OR 
POSITIVE  RLD  DATASET  CONTAINING 

DELAYED  VALUES 

TABLE  IN-21. 

WAR  RESERVE  FACTORS 

WR  (NODE,  CLASS) 


ATTRIBUTE  NAME 


DESCRIPTION 


1 THRFAC 


FILL  RATE  THRESHHOLD  FOR 
DISCONTINUING  WAR  RESERVE  SUPPORT 


m-)6 
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B.  COMMON  BLOCK  /SUPC/ 

The  common  block  /SUPC/  is  utilized  by  the  continuous  supply  modules 
as  an  interface  between  the  module  programs  and  the  PDS  datasets  utilized. 
Since  the  rate/level  modules  at  a node  are  executed  in  the  same  order 
every  time  step,  the  required  PDS  datasets  are  accessed  and  their  contents 
are  placed  in  arrays  in  /SUPC/  where  they  can  be  utilized  by  a number  of 
modules . This  method  sharply  reduces  the  number  of  PDS  dataset  accesses. 

It  also  provides  the  capability  to  aggregate  values  across  several  datasets 
at  once. 

The  labled  common  /SUPC/  consists  of  numerous  arrays  and  variables. 
Following  the  labeled  common  in  the  COMDECK  named  SUPC  is  a list  of  dimen- 
sion and  equivalence  statements  which  provide  mnemonic  variable  names  for 
the  elements  of  each  PDS  dataset  stored  in  /SUPC/.  These  mnemonic  names  are 
used  within  the  code  for  meaningful  references. 

The  variables  in  /SUPC/  are  defined  in  Table  111-22.  The  elements  of 
arrays  XI,  XN,  and  XIS  all  have  the  same  meanings  for  rates  at  individual 
nodes,  rates  from  a number  of  nodes,  and  the  sum  of  management  class  rates 
at  an  individual  node.  Table  111-23  lists  the  variables  in  these  arrays 
by  mnemonic  name.  Each  of  the  arrays  which  are  used  to  hold  particular 
PDS  datasets  are  listed  with  the  mnemonic  variable  names  in  Table  I V - 2 A 
for  reference  purposes.  The  PDS  dataset  elements  were  defined  earlier 
in  this  chapter. 

It  should  be  noted  that  special  purposes  are  given  the  arrays  Cl  and 
C2.  These  coordinate  arrays  are  set  by  the  verb  CLAS  to  the  coordinates 
of  the  rates  dataset  of  type  FCRTYP  specified  in  SUPC.  Cl  is  set  to 
(RLNOD,  CLAS).  C2  is  set  to  (RLNOD,  CLASPR)  where  CLASPR  is  the  class  100  + 
priority. 

C.  STATISTICS  COLLECTION 

This  section  is  normally  included  in  the  data  structure  section  of  the 
Module  Catalog.  However,  statistics  are  not  collected  directly  by  the  rate/ 
level  supply  modules.  For  this  reason,  the  discussion  of  statistics  collec- 
tion has  been  included  in  Part  6,  Continuous  Service  Modules. 

111-17 
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TABLE  111-22.  VARIABLES  IN  LABELED  COMMON  /SUPC/ 


NAME 


DESCRIPTION 


DLYM (20) 
DMD (6) 
RATPS (20) 
RCPT  (1 5) 
SFM (20) 
STKS (19) 
XRAT  (5) 
ZMCL  (2 1 ) 


XI (-MM AX ,10) 
XN (*MMAX ,10) 

XIS(IO) 


C)  (2) 

C2  (2) 

C3  (3) 

CLAS 

CLAS 

CLASPR 

CSUM 

FCRTYP 

IPRI 

IXRLC 

M 


ARRAYS  EQUIVALENT  TO  PDS  DATSETS 
HOLDING  ARRAY  FOR  MDLY  DATASET  ELEMENTS 
HOLDING  ARRAY  FOR  FCDMD  DATASET  ELEMENTS 
HOLDING  ARRAY  FOR  FCRAT  DATASET  ELEMENTS 
HOLDING  ARRAY  FOR  FCRCPT  DATASET  ELEMENTS 
HOLDING  ARRAY  FOR  MGTSF  DATASET  ELEMENTS 
HOLDING  ARRAY  FOR  FCSTKS  DATASET  ELEMENTS 
HOLDING  ARRAY  FOR  EXRAT  DATASET  ELEMENTS 
HOLDING  ARRAY  FOR  MGTCL  DATASET  ELEMENTS 

WORKING  ARRAYS  AND  ACCUMULATORS 

WORKING  ARRAY  FOR  RATES  FOR  AN  INDIVIDUAL  NODE 

ACCUMULATOR  ARRAY  FOR  RATES  FROM  N SUPPORTED  OR 
SUPPORTING  NODES 

ACCUMULATOR  FOR  RATES  FOR  AN  INDIVIDUAL  NODE  SUMMED 
ACROSS  MANAGEMENT  (M)  CLASSES 

OTHER  VARIABLES 

COORDINATES  HOLDING  ARRAY  FOR  (NODE,  CLASS) 

COORDINATES  HOLDING  ARRAY  FOR  (NODE,  CLASPR) 

COORDINATES  HOLDING  ARRAY  FOR  ANY  3 COORDINATES 

FLOW  CLASS  CURRENTLY  UNDER  CONSIDERATIONS 

MANAGEMENT  CLASS  CURRENTLY  UNDER  CONSIDERATIONS 

CLASS  AND  PRIORITY  CURRENTLY  UNDER  CONSIDERATIONS 

SUM  OF  THE  CUBE  OF  MATERIEL  IN  A FLOW  RATE  FOR  DENSITY 
DERIVATIONS 

NAME  OF  CURRENT  RATES  DATASET  TYPE  (EXRAT  OR  FCRAT) 

INDEX  OF  PRIORITY  IN  PRIORY  CURRENTLY  UNDER  CONSIDERATION 

INDEX  TO  ARRAY  RLC  IN  /LC/  OF  THE  COORDINATES  OF  THE 
CURRENT  RATES  DATASET 

INDEX  IN  MGTCL  OF  THE  MANAGEMENT  CLASS  CURRENTLY  UNDER 
CONSIDERATION 
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TABLE  111-22.  VARIABLES  IN  LABELED  COMMON  /SUPC/  (CONTINUED) 

NAME  DESCRIPTION 

OTHER  VARIABLES  (CONTINUED) 

MMAX  MAXIMUM  NUMBER  OF  MANAGEMENT  CLASSES  POSSIBLE  IN  THE 

MODEL 

NM  NUMBER  OF  MANAGEMENT  CLASSES  IN  USE  IN  THE  MODEL 

PRI  PRIORITY  CURRENTLY  UNDER  CONSIDERATION 

RIXDT  INDEX  IN  DTABLE  ARRAY  OF  RATE  UNDER  CONSIDERATION; 

ALSO  THE  COORDINATE  OF  THE  RATE  ATTRIBUTES  DATASET  RATATT 

WSUM  SUM  OF  THE  WEIGHT  IN  A FLOW  RATE  FOR  DENSITY  CONSI- 

DERATIONS 


r 
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TABLE  MI-23.  XI,  XN,  XIS  VARIABLE  NAMES  IN  /SUPC/ 


POSITION 

MNEMONIC 

DEFINITION 

1 

DPASR__* 

DEMAND  PASSING  RATE 

2 

IFSR 

ISSUE  FROM  STOCK  RATE 

3 

BOR_ 

BACK  ORDER  RATE 

4 

RPASR_ 

RECEIPT  PASSING  RATE 

5 

1 ABOR_ 

ISSUE  AGAINST  BACKORDER  RATE 

6 

FDIR_ 

FILL  DUE-IN  RATE 

7 

RCPTR_ 

RECEIPT  RATE 

8 

DAR_ 

DEMAND  ARRIVAL  RATE 

9 

BOPR_ 

BACKORDER  AND  PASS  RATE 

10 

TIR 

TURN-IN  RATE 

* MNEMONICS  HAVE  A SUFFIX  OF  I FOR  X I , N FOR  XN , AND  S FOR  XIS 
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TABLE  I I I -24 . NAMES  OF  PDS  DATASET  ELEMENTS  IN  /SUPC/ 


MNEMONIC  VARIABLE 


HOLDING  ARRAY  POSITION 


EXRAT  DATASET 


EXDMDI 

XRAT(I ) 

DAREXP 

XRAT (2 ) 

FIPGI  (1 ) 

XRAT (3) 

FIPGI (2) 

XRAT  (A) 

FIPGI (3) 

FCRAT  DATASET 

XRAT (5) 

ND 

RATPS(l) 

NR 

RATPS (2) 

NRCTS 

RATPS (2) 

IDPTR(l) 

RATPS (3) 

IRPTR(1 ) 

RATPS (3) 

IRCTP(1 ) 

RATPS (3) 

DARP ( 1 ) 

FCSTKS  DATASET 

RATPS (3) 

AOHL 

STKS ( 1 ) 

AD  1 L 

STKS (2 ) 

ADOL 

STKS ( 3) 

DOHL 

STKS (A ) 

DOHF 

STKS (5) 

DAR 

STKS (6) 

SDAR 

STKS (7) 

DPASR 

STKS (8) 

IFSR 

STKS (9) 

BOR 

STKS (10) 

REPLR 

STKS (11) 

SREPLR 

STKS (12) 

RCPTR 

STKS (13) 

FDIR 

STKS ( 1 A) 

POST 

STKS (15) 

IABOR 

STKS (16) 

RTBAS 

STKS (17) 

BOPR 

STKS (18) 

TIR 

STKS (19) 
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TABLE  III-2A.  NAMES  OF  PDS  DATASET  ELEMENTS  IN  /SUPC/  (CONTINUED) 


MNEMONIC  VARIABLE 


HOLDING  ARRAY  POSITION 


FCDMD  DATASET 


PFILDI 

DMD(l) 

PFILD2 

DMD (2) 

PFILD3 

DMD(3) 

PFILDI 

DMD(4) 

DFI  LL 

DMD  (4) 

FDLY 

DMD(5) 

DACC 

FCRCPT  DATASET 

DMD (6) 

PFILB1 

RCPT ( J ) 

PFILB2 

RCPT (2) 

PFILB3 

RCPT (3) 

PFILBI 

RCPT (4) 

BFILL 

RCPT (4) 

RFDLY 

RCPT(5) 

RACCS(l) 

MGTSF  DATASET 

RCPT (6) 

FM  ( 1 ) 

MGTCL  DATASET 

SFM(I) 

NMCL  ZMCL(I) 

XMCL(l)  ZMCL (2) 
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CONTINUOUS  SUPPLY  VERBS 
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ACSUP 

N/S/SA 

5/7A 

ACSUP 


Genera)  Description 

This  is  a nonsimple  verb  which  is  designed  to  represent  rate/level 
supply  processing  at  a node  which  receives  demands  from  other  nodes  or 
exogenously  and  accepts  receipts  from  other  nodes.  The  verb  is  designed  to 
back  order  and  pass  high  priority  demands  that  are  not  filled.  Low  priority 
demands  that  are  not  filled  are  back  ordered  only. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots. 

PS1  - Logic  to  handle  diversion  of  receipts 
PS2  - Define  linkage 


Examp  1 es 

Verb  ACSUP  can  be  used  inside  an  RLOOP  to  process  all  exogenous  rates 
EXRAT  and  corresponding  ECRAT  rates  at  a node. 

RLOOP  (P=*EXRAT  $ 

l=CLAS , CLRXN , 

ACSUP  (1  = CDIVR  (P  = * 2GS,  2,  1)  $ 

2 = RLRLK  (P  = * NODE,  1 .)  , 

RLDLK  (P  = * NODE,  0.)) 


GASP  Files  Used  ■ None . 

Permanent  Attributes  Accessed 

FCSTKS  (node,  class)  - stock  status 
FCRAT  (node,  claspr)  - pointers  to  rates  at  node 
FCDMD  (node,  claspr)  - demand  processing  parameters 
FCRCPT  (node,  claspr)  - receipt  processing  parameters 
PRIORY  (node)  - priorities. 

Verb  Inputs 

From  Calling  Program. 


(ACSUP- 1 ) 
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In  /SUPC/: 


Cl  - 

coord 

i nate 

array 

for 

node  and 

c 1 ass 

C2  - 

coord 

i nate 

array 

for 

node  and 

c 1 aspr 

PRI 

- pr  io 

r i ty 

From  PS  1 

1 . 

1 n 

/SUPC/ 

Ad  j u 

stment 

s to 

RCPTRI 

and 

RPASRI 

From  PS2.  None . 

Verb  Outputs 
To  PS1  ■ 

In  /SUPC/: 

RCPTRI  - receipt  rate 
RPASRI  - receipt  passing  rate 

To  PS2 . 

In  /SUPC/: 

PR  I - priority 

CLASPR  - class  and  priority 

Programs  Cal  led 

Verbs.  CSUP,  PLOOP , PRSPL,  CDMDS,  WBFIL,  PRYBR,  CBOP,  CBO,  CRCPT,  UDRAT . 
Other . None  directly. 

Input/Output  Files  Used.  None . 

Nonsimple  Verb  Listing. 

/■■■  AC  SUP , N ,2- 

+ RATE/LEVEL  SUPPLY  PROCESSING  AT  A DSS  ACCOUNT  - FOR  MODELS  DSS3  AND 
+ DSS** . 


+ 


+ PS1  - DIVERSION  OF  RECEIPTS 
+ PS2  - DEFINE  LINKAGES 


+ 

CSUP  (P  = 1$ 

1 = PLOOP  (1  = PRSPL, 

CDMDS  (P  = 1$ 
(ACSUP-2) 


+ MAIN  SUPPLY  MODULE 
+ PRIORITY  SPLITTER 
+ PROCESS  DEMAND 
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1 = WBFIL  $ 

2 = PRYBR  (I  = 


2 = 


CRCPT 

(P  = 1 $ 

1 = WBFIL 

$ 

2 = * * 1 ), 

UDRAT 

(P  = 2,  1 , 

0)) 

PLOOP  (1  = **2) ) 

(ACSUP-3) 
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+ DEMAND  SAT  (WE  I BULL) 
CBOP  $ 

+ BO/PASS  HIPRI  NOFILL 
CBO  )), 

+ BO  LOPRI  NOFILL 
+ RECEIPT  PROCESSING 
+ FILL  BO  (WE  I BULL) 

+ DIVERSION 

$ + UPDATE  FCRAT  STACKS 

+ DEFINE  PL  LINKS  BY  PR  I 
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CBOP 

S/S/S*4 

5/74 

CBOP 

General  Description 

Back  orders  and  passes.  Derives  back  order  rate  as  difference  between 
demand  arrival  rate  and  the  sum  of  passed  as  non-stockage  list  and  issued. 
Then  adds  this  rate  to  the  passing  rate.  (for  use  in  PS  1 of  CDMDS.) 

Rates  are  determined  by  the  following  equations: 

BOR  I = DARI  - DPASRI  - IFSRI 
DPASRI  = DPASRI  + BOR  I 
BOPRI  = BOR  I 

where  BORI  = back  order  rate 

DARI  = demand  arrival  rate 
DPASRI  = demand  passing  rate 
IFSRI  = issue  from  stock  rate 
BOPRI  = back  order  passing  rate 
Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  I es 

CBOP  can  be  used  in  PS1  of  CDMDS.  The  example  shown  passes  high 
priority  demands  that  can't  be  filled  and  back  orders  low  priority  demands. 
PLOOP  (1  = PRSPL , 

CDMDS  (P  = 1 $ 

1 = WBFIL  $ 

2 = PRYBR  (1  = CBOP  $ + HI  PRI 

2 = CBO  ))  + LO  PRI 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 


(CBOP- 1 ) 
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Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

DARI  - demand  arrival  rate 
DPASRI  - demand  passing  rate 
IFSRI  - issue  from  stock  rate 

Verb  Outputs 

To  Calling  Program. 

In  /SUPC/: 

BORI  - back  order  rate 
DPASRI  - demand  passing  rate 
BOPRI  - back  order  and  pass  rate 

Programs  Called 

Verbs . None. 

Other . None. 

Input/Output  Files  Used 
None . 


(CBOP-2) 
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CBO 

General  Description 

Derives  back  ordering  rate  as  difference  between  demand  arri 
and  sum  of  passing  and  issuing  rates.  (For  use  in  PS1  of  CDMDS.) 
determined  by  the  following  equation: 

BOR  I = DARI  - DPASRI  - IFSRI 
BOPRI  = 0. 

where  BORI  = back  order  rate 

DARI  = demand  arrival  rate 
DPASRI  = demand  passing  rate 
IFSRI  = issue  from  stock  rate 
BOPRI  = back  order  and  passing  rate. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  1 es 

CBO  can  be  used  in  PS1  of  CDMDS. 

CDMDS  (P  = 1 $ 

1 = WBFIL  $ + DEMAND  SATISFACTION 

2 = CBO  ) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

DARI  - demand  arrival  rate 

DPASRI  - demand  passing  rate 
IFSRI  - Issue  from  stock  rate 
(CBO- 1 ) 
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m 

Verb  Outputs 

To  Calling  Program. 

In  /SUPC/: 

BOR  I - back  order  rate 

BOPRI  - back  order  and  pass  rate. 

Programs  Cal  led 

Verbs . None. 

Other.  None. 

Input/Output  Files  Used 
None . 


i 
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CDIVR 

S/S/S4 

1/75 

CDIVR  (DESTN,  IXR,  MSW) 

General  Description 

Diverts  a portion  of  a continuous  receipt  flow  to  DESTN.  The  flow  is 
that  for  class  C2(2)  and  node  C2(l).  It  is  assumed  expressed  in  the  variable 
RCPTRl(M)  in  /SUPC/.  The  fraction  diverted  is  found  in  FCD I VR (C2 ( 1 ) ,C2 (2)  , 
DESTN). 1.  The  delay  whose  index  is  in  FCD I VR . 2 is  incurred,  the  diverted 
rate  is  entered  into  RATATT.l  of  return  flow  stack  IXR  for  node  DESTN.  The 
assumption  that  RCPTRl(M)  is  the  rate  to  be  split  makes  this  module  suitable 
for  use  in  PS2  of  CRCPT. 

Assembler  Inputs 
Arguments . 

DESTN  - alpha  name  of  destination  node  for  diverted  receipts 
IXR  - index  to  the  receipt  rate  for  node  DESTN  to  be  incre- 
mented by  diversions 

MSW  - if  zero,  use  CLASM  for  coordinates,  if  positive,  set 
M = MSW  and  use  coordinates  as  input. 

Parameter  Slots.  None. 

Examp  1 es 

CDIVR  is  suitable  for  use  to  adjust  the  receipt  rates  in  PS2  of  CRCPT. 
CRCPT  (P  = 1 $ 

1 = WBFIL  $ 

2 = CDIVR  (P  = *N0DEB,  2,  1)) 

GASP  Fi les  Used 
None . 

Permanent  Attributes  Accessed 

FCDIVR  (node,  claspr,  destn)  - 

1 - fraction  of  flow  diverted 

2 - rate/level  delay  index  for  diversions 
FCRAT  (destination  node,  claspr) 

IRR  - pointer  to  receipt  rate  for  destination  node  in  DTABLE 

(CD  I VR- 1 ) 
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Verb  Inputs 

From  Calling  Program 
In  /SUPC/ : 

RCPTRI  - receipt  rate 
RPASRI  - receipt  passing  rate 
From  DBOXST.  None . 

From  RLDLY . 

Function  Value  - delayed  diverted  rate. 
Verb  Outputs 

To  DBOXST. 


Arguments  - 

OBOX  - name  of  PDS  dataset 

Cl  - coordinates  to  use,  current  node 

DIVAMT  - diverted  amount  to  be  removed  from  oldest  OBOX  cell. 


To  RLDYL. 

Arguments  - 

DIVDLY  - diversion  delay  index 
DIVRAT  - rate  of  diverted  flow. 


To  ABOXST. 

Arguments  - 


OBOX  - name  of  PDS  dataset 

Cl  - coordinates  of  PDS  dataset,  destination  node 
Third  - level  of  materiel  diverted  for  due-ins  at  destination 
node . 

To  FCSTKS  (destination,  node,  class). 

2 - actual  due  in  level  incremented. 

To  UDDRA1 . 


Arguments  - 
DDRAT 
Second 
Thi  rd 
Fourth 


delayed  diverted  rate  to  increment  receipt  rate 
destination  node  number,  negative 
index  of  rate  stack  to  search  for  node  in  DTABLE 
top  switch  of  zero  indicates  no  action  if  destina 
tion  node  cannot  be  found  in  rate  stack. 

(CDIVR-2) 
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Programs  Called 

Verbs . None. 

Other.  ABOXST  , RLDLY  , RLNIX,  UDRRA1  , 
Input/Output  Files  Used 
None . 


(CDtVR-3) 


PERMDS  . 
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CDMDS 

S/S/SA 

3/7A 

CDMDS  (MSW) 

General  Description 

Processes  a demand  rate  (continuous  flow)  by  splitting  it  into  three 
parts  - passed,  filled,  and  back  ordered.  The  flow  so  split  is  that  for  class 
CLAS,  priority  PR  I , and  subclass  M,  specified  in  /SUPC/.  Also,  accumulates 
rates  of  demand  from  more  than  one  individual  nodes  into  overall  rates  for 
this  node. 

The  demand  arrival  rate  is  determined  from  the  rate  stack  in  DTABLE 
and  altered  by  the  splitting  factors  in  MGTSF . The  passing  rate  and  issue 
from  stock  rate  are  calculated  as: 

DPASRI  = (1  - DACC)  * DARI 
IFSRI  = PFILDI  * (DARI  - DPASRI) 
where  PFILDI  is  the  probibility  of  fill  from  PS1. 

Assembler  Inputs 
Arguments . 

MSW  - if  equal  to  0,  use  CLASM  instead  of  CLAS  from  /SUPC/ 

- if  positive,  indicates  management  class  M to  use. 

Parameter  Slots. 

1 - obtain  fill  rate  in  ZSWT 

2 - process  unfilled  stockage  list  demand  (e.g.,  back  ordered) 

Examples 

CDMDS  can  be  used  in  PS  1 of  CSUP  after  the  priority  PRI  has  been  set 
in  /SUPC/.  It  can  also  be  used  separately  to  process  incoming  demands  at 
a support  node  as  shown  here: 

RL00P  (P  = * FCRAT  $ 

1 = CLAS,  MSET, 

CDMDS  (P  = 0 $ 

1 = TFILL  $ + DEMAND  SATISFAC. 

2 = CPNBO)  , + PASSED  DEMANDS 

In  this  case  RL00P  sets  the  coordinates  required  from  the  FCRAT  datasets. 

(CDMDS- 1 ) 

IV- 15 


TT£u.-:Dr  o pa.ge  bl«nk-nct  fil 


THE  BDM  CORPORATION 


GASP  Files  Used.  None 
Permanent  Attributes  Accessed 

FCDMD  (node,  claspr)  - all  elements 
FCSTKS  (node,  class)  - 

AOHL  - actual  on  hand  level 
IFSR  - issue  from  stock  rate 
BOR  - back  order  rate 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

Cl  - coordinates  (node,  class) 

C2  - coordinates  (node,  claspr) 

From  PS1  . 

In  /ZMAWSY/  : 

ZSWT  -fill  rate 

From  PS2. 

In  /SUPC/: 

BORI  - back  order  rate 
BOPRI  - back  order  and  passing  rate 
From  IRSTK. 

Function  Value:  location  in  DTABLE  of  demand  rate  for  this  node 

Verb  Outputs 

To  IRSTK. 

Arguments : 

KRLNOD  - node  number 

DARP(lXD)  - demand  arrival  rate  pointer  word  to  DTABLE 

To  PS1  . 

In  /VRBGSP/ : 

PARAM  (NPRMS,*)  - demand  fill  rate  curve  factors 
In  /ZMAWSY/: 

IZSWT  - index  of  PARAM  array  values  to  use  for  fill  rate 
distribution 

(CDMDS-2) 
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To  PS2 . 

In  /SUPC/ : 

DARI  - demand  arrival  rate 
DPASRI  - demand  passing  rate 
IFSRI  - issue  from  stock  rate 
To  Calling  Program. 

In  /SUPC/: 

DPASRI  and  DPASRN  - demand  passing  rate 
DARI  and  DARN  - demand  arrival  rate 
IFSRI  and  IFSRN  - issue  from  stock  rate 
BOR  I and  BORN  - back  order  rate 
BOPRI  and  BOPRN  - back  order  and  passing 
Prog  rams  Called. 

Verbs.  None 

Other.  GETSET,  PERMDS ( VALEL,  CLASS,  IRSTK. 
Input/Output  Files  Used.  None. 
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CICPD 

S/S/S^ 

A/7A 

CICPD 

General  Description 

Simulates  response  of  ICP  and  depot  system  to  demands  in  terms  of  a 
delay  by  (customer,  priority,  supply  class,  mgt  class).  Assumes  variables 
M,  RATPS,  IXRLC  in  /SUPC/  have  been  set.  The  output  rate  for  the  current 
M-class  is  set  into  IFSRI  in  /SUP C/,  while  the  output  aggregated  over  all 
M-classes  is  accumulated  in  IFSRS  in  /SUPC/.  Also  assumes  M-class  splitting 
factors  have  been  set  into  SFM  in  /SUPC/. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots. 

1 - IFSRI  (M)  may  be  altered  before  being  sent  on.  One  example 

is  to  send  part  of  the  issue  rate  in  full  container  loads  from 
a depot . 

Examp  1 es 

CICPD  can  be  used  to  respond  to  a demand  rate  with  a delayed  issue  rate. 
It  must  be  preceded  by  verbs  which  set  M,  DLYM , RATPS,  and  IXRLC  in  /SUPC/. 
RLOOP  (P  = * FCRAT  $ + LOOP  ON  INCOMING  RATES 

I = CLSPC , CLAS,  MDLY , MSET, 

CICPD  (1  = FCASN  (1  = FCLOD  ...)), 

TOCCP  (P  = 1)  + SEND  RECEIPT  RATE 

GASP  Files  Used  . None . 

Permanent  Attributes  Accessed 
FCDMD  (node,  claspr)  - 

5 - delay  index  for  fill  time 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

M - index  of  management  class  to  use 

RATPS  - variables  from  FCRAT  dataset  including  pointer  words 
to  rate  stacks  in  DTABLE 
(CICPD-1) 
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IXRLC  - index  to  coordinates  of  FCRAT  in  RLC  array  in  /LC/ 
CLASM  - management  class  code 
DLYM  - management  class  delay  indexes 
From  IRSTK. 

Function  Value  - index  to  rate  in  DTABLE 
From  RLDLY . 

Function  Value  - delayed  issue  from  stock  rate 
F rom  PS  1 . 

In  / SUPC/  : 

IFSRI  may  have  been  altered. 

Verb  Outputs 
To  PS1  . 

In  /SUPC/: 

IFSRI  - issue  from  stock  rate 

IXRLC  - index  to  FCRAT  coordinates  in  RLC 

To  IRSTK. 

Arguments : 

KRLNOD  - node  number  to  search  for  in  rate  stack 
DARP  - demand  arrival  rate  pointer  to  DTABLE  stack 

To  RLDLY. 

Arguments : 

First  - index  to  rate/level  delay  to  use 
Second  - issue  rate  to  be  added  to  delay  dataset 
To  MDLY  Dataset. 

Mth  element  - index  to  delay  for  M class 
To  Calling  Program . 

In  /SUPC/: 

IFSRI  - issue  from  stock  rate  for  current  M class 
IFSRS  - accumulated  issue  from  stock  rate  for  all  M classes 
handled  in  this  pass 

Programs  Called 

Verbs . None . 

Other.  CLASS, IRSTK,  PERMDS , RLDLY,  SETEL,  VALEL. 

Input/Output  Files  Used.  None. 

(CICPD-2) 
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CISSU 

S/S/Sk 

3/74 


CISSU  (IRR,  TOPSW) 

General  Description 

Continuous  supply  issue  verb  for  all  M classes.  Converts  sum  of  issue- 
aga i ns t -back  order  and  i ssue~f rom-stock  rates  for  a demand  source  to  a 
return  flow  rate.  IAB0RS  and  IFSRS  in  /SUPC/  are  the  rates  whose  sum, 
delayed  by  FCDMD.6  is  converted  to  the  top  entry  in  the  rates  stack 
pointed  to  by  FCRAT.  (3+ND+IRR)  , for  class  CLAS  and  priority  PR  I and  node 
(RLC  ( 1 . IXRLC)  . 


Assembler  Inputs 
Arguments . 


IRR  - index  to  the  receipt  rate  pointed  to  in  FCRAT  to  update 
TOPSW  - top  switch;  if  0,  no  action  will  be  taken  if  KRLNOD 
entry  is  not  found;  if  not  zero,  update  top  entry  in 
rate  stack  if  KRLNOD  entry  is  not  found. 

Parameter  Slots.  None. 

Examp  1 es 


CISSU  can  be  used  to  issue  materiel  which  has  been  combined  from  one 


or  more  management  classes. 

ML00P  (1  = CDMDS  (P  = 
1 = 

SUMXI,  + 

CISSU  (P  = 2,  I .)  , + 

CPASS. 


0 $ 

CPNBO) ) , 

SUMS  OVER  M CLASSES 
ISSUES  FROM  SINGLE  CLASS 


GASP  Files  Used 


None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 


In  /SUPC/: 

IAB0RS  - issue  against  back  order  rate 
(CISSU-1) 
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IFSRS  - issue  from  stock  rate 

NRCTS  - number  of  receipt  rates  in  FCRTYP  dataset 
IRCTP  - array  of  indexes  to  receipt  rate  entries  in  DTABLE 
stack 

ND  - number  of  demand  rates  in  FCRTYP  dataset 
In  /RLSYS/ : 

KRLNOD  - rate/level  node  number 
From  UDRR.  None. 

Verb  Outputs 
To  UDRR. 

Arguments  - 

First  - value  to  update  rate  with 

Second  - update  rate  following  KRLNOD  entry  in  stack 
Third  - pointer  to  stack  in  DTABLE  to  update 
Fourth  - top  switch,  as  input  in  CISSU. 

Programs  Called 

Verbs . None. 

Other.  UDRR. 

Input/Output  Files  Used 
None . 


' 


1 
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CISUI 

. S/S/SA 

1/75 

CISUI  (MSW,  I XR , TOPSW) 

General  Description 

Continuous  supply  issue  verb  for  an  individual  customer.  Issues  rate 
IFSRI(M)  in  /SUPC/  through  return  stack  pointed  to  from  FCRTYP (RLC (* , I XRLC ) ) . 
(IXR+ND+2).  IFSRI  is  thought  of  as  an  issue  rate  to  an  individual  customer. 
(IFSRN  is  issue  rate  to  more  than  one  customer.)  M can  be  the  index  of  a 
class  number  in  a MGTCL  dataset.  When  this  is  so,  it  has  usually  been  set 

elsewhere  by  modules  such  as  MSET  and  MLOOP.  This  case  can  be  handled  by 

setting  argument  MSW=0.  If  M is  not  assumed  to  be  set  elsewhere,  a value 
can  be  specified  to  permit  valid  references  to  array  IFSRI  by  setting 
argument  MSW  to  the  desired  value,  e.g.  1. 

Assembler  Inputs 
Arguments . 

MSW  - set  M = MSW  if  M greater  than  0. 

I XR  - index  to  receipt  rate  pointer  in  FCRTYP  dataset,  i.e., 

receipt  rate  path  for  issues 

TOPSW  - indicates  whether  the  return  rate  to  be  updated  is  the 

next  one  after  the  one  for  the  current  node  (T0PSW=0.)  or 
the  top  one  in  the  stack  even  if  there  is  none  for  the 
current  node  (T0PSW=1.). 

Parameter  Slots.  None. 

Examp  1 es 

CISUI  can  be  used  at  a supply  node  which  is  supporting  a number  of 
nodes,  indicated  by  their  FCRAT  datasets 
RL00P  (P  = *FCRAT  $ 

1 = CLAS,  MSET, 

CDMDS  (P  = 0 $ 

1 = TFILL  $ 

2 = CPNBO)  , 

CISUI  (P  = 0,  2,  1 .) , 
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CPAS  I (P  = 0,  1) , + PASS  DEMANDS 

+ NOT  FILLED 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

M - management  class  index 

NR  - number  of  receipt  rate  paths 

ND  - number  of  demand  rate  paths 

IFSRI  - issue  from  stock  rate 

IRPTR  - pointer  to  receipt  rate  stack  in  DTABLE 
From  UDRR.  None. 

Verb  Outputs 
To  UDRR. 

Arguments  - 

First  - IFSRI  to  update  receipt  rate 

Second  - update  successor  entry  to  KRLNOD  entry  in  rate 
stack 

Third  - pointer  to  rate  stack  to  update 

Fourth  - top  switch  as  input  to  C I SU I 

Programs  Called 

Verbs . None. 

Other . UDRR. 

Input/Output  Files  Used 
None . 


(CISUI -2) 
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CLAS 

S/S/SA 

5/7A 

CLAS 

General  Description 

Sets  variables  in  /SUPC/  for  class  and  node  number.  Determines 
coordinates  of  FCRTYP  rate  dataset  to  set  Cl  and  C2  coordinate  arrays 
with  node,  class,  and  priority.  FCRTYP  may  be  either  EXRAT  or  FCRAT. 
Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  1 es 

CLAS  can  be  used  inside  an  RLOOP  to  set  /SUPC/  variables  for  each 
rate  dataset  found  in  the  loop. 

RLOOP  (P  = '-FCRAT  $ 

1 = CLAS,  MSET, 

CDMDS , ...  ) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

PRIORY  (node)  - priority  codes  at  node 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

IXRLC  - index  to  coordinates  of  FCRTYP  rate  dataset  in  RLC 
array 

FCRTYP  - name  of  rate  dataset  type  to  obtain  coordinates  of. 

Verb  Outputs 

To  Calling  Program. 

In  /SUPC/: 

Cl  - coordinate  array  (node,  class) 

C2  - coordinate  array  (node,  claspr) 

CLAS  - class  code 

(CLAS-1 ) 
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PR  I - priority  code 

IPRI  - index  to  priority  in  PRIORY  dataset 
CLASPR  - class  * 100  + priority 

Programs  Called 

Verbs . None. 

Other . PERMDS. 

Input/Output  Files  Used 
None . 

j 


(CLAS-2) 
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San 
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CLRXN 

S/S/SA 

5/7A 

CLRXN 

General  Description 

Clears  array  XN  In  /SUPC/.  XN  is  the  array  which  accumulates  stock 
status  variables  over  one  or  more  customers  to  a node. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  1 es 

CLRXN  can  be  used  inside  an  RLOOP  to  clear  FCSTKS  holding  variables 
for  each  new  EXRAT  dataset  that  is  looped  on. 

RLOOP  (P  = * EXRAT  $ 

1 = CLAS,  CLRXN, 

CSUP  ...  ) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program.  None. 

Verb  Outputs 

To  Calling  Program. 

In  /SUPC/: 

XN  - cleared  to  zero. 

Programs  Called 

Verbs . None. 

Other.  CLEAR. 

Input/Output  Files  Used 
None . 


(CLRXN-1) 


IV-27 


I 


r 


THE  BDM  CORPORATION 


CLSPC 

S/S/SA 

S/71* 

CLSPC 

General  Description 

Clears  /SUPC/  arrays  XI,  XN,  and  XIS. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Exampl es 

CLSPC  can  be  used  at  a node  to  insure  that  all  stock  status  arrays 
are  cleared  when  verb  CSUP  is  not  being  used. 

SUPRT.  RLNOD  (P  = •'•SUPRT,  12.), 

CLSPC, 

RLOOP  (P  = *FCRAT  $ 

1 = CLAS,  MSET, 

CDMDS  (P  = 0 $ 

1 = TFILL  $ 

2 = CPNBO)  , 

CISUI  (P  = 0,  2,  1)  , 

CPAS  I (P  = 0,  1))  , 

'••SUPRT . 2 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program.  None. 

Verb  Outputs 

To  Calling  Program . 

In  /SUPC/: 

XI  - array  cleared  to  zero 

XN  - array  cleared  to  zero 

(CLSPC-1) 
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XIS  - 
WSUM  - 


array  cleared  to  zero 
set  to  zero 
set  to  zero 
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CPALL 

S/S/SA 

1/75 

CPALL 


General  Description 

Passes  all  authorized  stockage  list  (ASL)  demand,  back  orders  none. 
For  use  in  PS2  of  CDMDS. 

The  verb  sets 


BOR  I = 0. 

BOPRI  = 0. 

DPASRI  = DARI 

where  BORI  = back  order  rate 

BOPRI  = back  order  passing  rate 
DPASRI  = demand  passing  rate 

DARI  = demand  arrival  rate. 


Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examples 

CPALL  can  be  used  in  PS2  of  CDMDS  to  pass  all  demands. 
CDMDS  (P  = 1 $ 

1 = TFILL  $ 

2 = CPALL  ) 

GASP  Files  Used 
None . 


Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

DARI  - demand  arrival  rate. 


Verb  Outputs 

To  Calling  Program. 


(CPALL-1) 
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In  /SUPC/ : 

BOR  I - back  order  rate 

BOPRI  - back  order  and  pass  rate 

DPASRI  - demand  passing  rate. 

Programs  Called 

Verbs . None. 

Other . None. 

Input/Output  Files  Used 
None . 


(CPALL-2) 
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CPAS  I 

S/S/SA 

1/75 

CPAS  I (MSW,  IXD) 

General  Description 

Updates  rate  of  passed  demand  for  the  node  and  flow  class  at  FCRTYP 
(RLC  (••',  IXRLC)).  Demand  path  IXD  is  used.  DPASRI(M)  is  the  passing  rate 
put  into  the  flow.  DPASRI  is  thought  of  as  the  passing  rate  for  an  individual 
account,  as  opposed  to  DPASRN,  which  is  the  passing  rate  for  an  aggregation 
of  accounts.  M represents  a particular  class  in  an  MGTCL  dataset,  or  it 
may  be  just  an  index  to  permit  valid  references  to  DPASRI.  The  former  conno- 
tation is  indicated  when  argument  MSW  = 0,  the  latter  when  MSW  ^ 0.  When 
MSW  = 0,  the  value  of  M already  in  /SUPC/  is  used.  It  is  assumed  to  have 
been  set  earlier  by  a module  such  as  MSET  or  ML00P. 

Assembler  Inputs 
Argumen  t s . 

MSW  - switch  to  indicate  use  of  M in  /SUPC/ 

IXD  - index  of  demand  path  in  FCRTYP  to  use 
Parameter  Slots. 

1 - Define  rate/level  links 

Examp ) es 

CPASI  is  used  to  pass  demands  for  a single  class  from  a node  that  are 

not  filled  at  this  node.  The  index  to  coordinates  in  RLC  must  be  set,  such 

as  in  RL00P: 

RL00P  (P  = * FCRAT  $ 

1 = CLAS,  MSET, 

CDMDS  (P  = 0 $ + DEMAND  PROCESSING 

1 = TFILL  $ 

2 = CPNBO  ) , 

CISUI  (P  = 0,  2,  I.),  + ISSUE  STOCK 

CPASI  (P  = 0,  1))  + PASS  DEMANDS  NOT  FILLED 

GASP  Files  Used . None. 

Permanent  Attributes  Accessed.  None. 

(CPAS  I - 1 ) 
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Verb  Inputs 

From  Calling  Program. 

In  / SUPC/ : 

IXRLC  - index  to  coordinates  of  FCRTYP  in  RLC 
ND  - number  of  demand  paths  in  FCRTYP 
RATPS  - elements  of  rate  pointers  in  FCRTYP 
F rom  PS  1 . None . 

From  LIDDR.  None . 

Verb  Outputs 
To  PS  I . 

In  /RLSYS/ : 

LKDST  - link  dataset  type  name 
LKCDS  - coordinates  of  LKDST 

IXDRAT  - index  to  first  demand  rate  pointer  in  LKDST 
IXRRAT  - index  to  first  receipt  rate  pointer  in  LKDST 

To  UDDR. 

Arguments  - 

First  - demand  passing  rate 

Second  - node  number  of  demand  rate  in  stack 
Third  - pointer  word  to  demand  rate  from  FCRTYP 
Fourth  - bottom  switch,  1 requests  that  first  (bottom) 
entry  of  the  stack  is  updated  if  the  entry 
for  the  specified  node  can  not  be  found. 

Programs  Called 

Verbs . None. 

Other.  UDDR. 

Input/Output  Files  Used . None . 


(CPAS  I -2) 
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CPASS 

S/S/SA 

3/7A 

CPASS  (IXR) 

General  Description 

Updates  rate  of  passed  demand  for  the  node  and  CLASS/PRI  at  FCRTYP 
(RLC  ('••  , I XRLC) ) , where  IXRLC  is  in  /SUPC/.  This  consists  of  applying  UDDR 
to  DPASRS  in  /S UPC/  ror  demand  path  IXR. 

Assembler  Inputs 
Arguments . 

IXR  - index  to  demand  path  in  FCRAT  to  be  updated 
Parameter  Slots. 

1 - define  links  for  rates  pointed  to  from  FCRAT  .3  (demand  rates) 
and  FCRAT.  (IXR  + 2 + ND)  (receipt  rate) 

Examp  I es 

CPASS  can  be  used  to  update  the  demand  passing  rate  at  a support  node. 
DPASRS  must  have  been  calculated 
RLOOP  (P  = * FCRAT  $ 

[ = CLAS,  SFM, 

MLOOP  (1  = CDMDS  (P  = 0 $ + LOOP  THR  M-CLASSES 

1 = CPNBO  ))  , 

SUMXI,  + SUM  OVER  M-CLASSES 

CISSU  (P  = 3,  1 .) , + ISSUE  THRU  R3 
CPASS  (P  = I $ 

I = RLDLK  (P  = * NODEUU , 0.)))  , 

GASP  Files  Used . None. 

Permanent  Attributes  Accessed.  None. 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

IXRLC  - index  to  coordinates  of  FCRAT  in  array  RLC  in  /LC/ 

ND  - number  of  demand  path  pointers  in  FCRAT 
DPASRS  - demand  passing  rate 
(CPASS- I ) 
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From  UDDR.  None . 
Verb  Outputs 
To  UDDR. 


Arguments  - 

DPASRS 

- demand 

pass  i ng 

rate 

KRLNOD 

- node  for  which 

demand 

rate 

i s 

to  be 

updated 

DARP  - 

pointer 

to  first 

demand 

path 

i n 

FC  RAT 

Fourth 

- bottom 

swi tch , 

0 indicates 

no 

action 

if  KRLNOD 

entry  is  not  found  in  stack. 

Programs  Cal  led 

Verbs . None. 

Other.  UDDR. 

Input/Output  Files  Used.  None. 


(CPASS-2) 
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CPNBO 

General  Description 

Passes  and  does  not  back  order  ASL  demand  that  cannot  be  fil 
stock.  (For  use  in  PS1  of  CDMDS.)  Demand  passing  rate  (DPASRI) 
mined  by 

DPASRI  = DARI  - IFSRI 
where  DARI  = demand  arrival  rate 

! FSR I = issue  from  stock  rate. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None . 

Examples 

CDMDS  (P  = 0 $ 

1 = TFILL  $ 

2 = CPNBO  ) + NO  BACK  ORDER  ON  PASSED 

+ DEMANDS 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

DARI  - demand  arrival  rate 
IFSRI  - issue  from  stock  rate. 

Verb  Outputs 

To  Calling  Program . 

In  /SUPC/: 

BORI  - back  order  rate 
DPASRI  - demand  passing  rate 
BOPRI  - back  order  and  pass  rate. 

(CPNBO- 1 ) 
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Programs  Called 

Verbs . None. 

Other . None. 
Input/Output  Files  Used 
None . 


(CPNBO-2) 
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CRCPT 

S/S/SA 

3/7A 

CRCPT  (MSW) 

General  Description 

This  module  processes  receipts  for  continuous  supply  representation. 

The  receipt  stream  for  class  CLAS  and  priority  PRI  is  split  into  passed, 
inventoried,  and  i ssued-aga i nst-backorders  rates.  These  rates  from  indivi- 
dual nodes  are  also  accumulated  across  sources,  that  is  different  receipt 
paths  to  the  node.  The  following  equations  update  the  receipt  rate,  passing 
rate,  fill-due-ins  rate,  and  issue  against  back  orders  rate: 

RCPTRI  = RCPTRI  + incoming  rate  in  DTABLE 

RPASRI  = RPASRI  + (1  -RACCS)  * incoming  rate  in  DTABLE 

FDIRI  = RCPTRI  - RPASRI 

IAB0RI  = PFILBI  * FDIRI 

where  PFILBI  is  the  back  order  fill  rate  from  PS  1 . 

Assembler  Inputs 
Arguments ■ 

MSW  - If  zero,  use  class  CLASM  for  accessing 
If  positive,  set  M = MSW. 

Parameter  Slots. 

1 - Derive  back  order  fill  rate  for  current  receipts 

2 - Divert  or  otherwise  adjust  receipt  stream 

Examp  1 es 

CRCPT  is  usally  used  in  PS1  of  CSUP  to  process  receipts 

CRCPT  (P  = 1 $ + USE  FIRST  M CLASS 

1 = WBFIL  $ + CALCULATE  FILL  RATE 

2 = CDIVRT  (P  = * NODEA,  2,1)) 

+ DIVERT  RECEIPTS  TO  NODE  B 

GASP  Files  Used . None. 

Permanent  Attributes  Accessed 

FCRCPT  (node,  claspr)  - all  elements 

FCRAT  (node,  claspr)  - receipt  rate  pointer  words 

(CRCPT- 1 ) 
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Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

Cl  - coordinate  array  (node,  class) 
C2  - coordinate  array  (node,  claspr) 
CLAS  - class  designation 
PR  I - priority 

From  PS  1 . 

In  /ZMAWSY/: 

ZSWT  - back  order  fill  rate 

From  PS2. 

In  /SUPC/: 

Adjustments  to  RCPTRI  and  RPASRI 
From  IRSTK. 


Function  Value  - index  to  receipt  rate  for  KRLNOD  in  DTABLE 
Verb  Outputs 
To  PS1  . 

In  /ZMAWSY/: 

IZSWT  - index  of  distribution  to  use  in  array  PARAM 
In  /VRBGSP/ : 

PARAM  (IZSWT, °)  - distribution  values  for  back  order  file 


To  PS2 . 

In  /SUPC/: 

RCPTRI  - receipt  rate 
RPASRI  - receipt  passing  rate 


To  Calling  Program. 

In  /SUPC/: 

RCPTRN  and  RCPTRI  - receipt  rates  for  all  sources  and  indiv 

dual  source 

RPASRN  and  RPASRI  - receipt  passing  rate 
FDIRN  and  FDIRI  - fill  due-in  rate 
IABORN  and  IAB0RI  - issue  against  back  order  rate 
(CRCPT-2) 
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Programs  Cal  led 

Verbs . None. 

Other.  CLASS,  IRSTK 
Input/Output  Files  Used. 


None . 


(CRCPT-3) 
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CREPL  (1X0) 

General  Description 

Continuous  supply  replenishment  verb.  Generates  replenishment  rate 
on  basis  of  current  value  of  REPLR  in  PDS  dataset  FCSTKS  (RLNOD,  CLASM) . 1 1 . 
Assembler  Inputs 
Arguments . 

IXD  - index  of  demand  path  for  replenishment 
Parameter  Slots.  None. 

Examp  1 es 

CREPLR  can  be  used  to  update  the  demand  rate  from  a node  with  REPLR 
from  /SUPC/ 

ML00P  (1  = CSUP  (P  = 0 $ 

1 = CTI  (P  = 0)  , 

CREPL 

CRCPT  (P  = 0)  $ ) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
FCRAT  (node,  class)  - 

IXD  + 3 ~ index  to  demand  rate  stack  in  DTABLE . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

REPLR  - replenishment  rate 
In  /RLSYS/ : 

KRLNOD  - rate/ level  node  number 

Verb  Outputs 
To  UDDR. 

Arguments  - 

(CREPL- 1 ) 
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F i rst 
Second 
Third 
Fourth 


rate  to  update  stack  entry  with  REPLR 

update  successor  entry  to  KRLNOD  entry  in  stack 

pointer  to  rate  stack  in  OTABLE 

bottom  switch,  update  bottom  entry  in  stack  if 

KRLNOD  entry  is  not  found 


To  Calling  Program  None. 

Programs  Called 

Verbs.  None. 

Other.  CLASS,  GETSET,  PERMDS,  UDDR. 
Input/Output  Files  Used 
None . 


(CREPL-2) 
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CRT  I ( I X R ) 

General  Description 

Receives  turn-in  shipments  (like  those  generated  by  CSTl)  and  enters 
them  into  the  IXR-th  receipt  stream  of  FCRTYP  for  the  current  node  and  the 
flow  class  given  in  ATRIB(A). 

Assembler  Inputs 
Arguments . 

IXR  - index  to  the  receipt  path  to  be  used  for  receipt  of  turn-ins 
Parameter  Slots.  None. 

Examp  I es 

CRTI  is  placed  in  a subnode  which  can  then  be  addressed  by  CSTl  when 
a stock  turn-in  is  generated. 

NODEA.  RLNOD  (P  = * NODEA,  1.), 

CSTl  (P  = * NODEB,  2 $ 

1 = RTURN  (P  = 0)  , * NODEB. 2) 

NODEB. 

+ RECEIPT  OF  TURN-INS 
111  RLNOD  (P  = * NODEB,  2.)  , 

CRTI  (P  = 2)  + TURN-INS  ADDED  TO  R2 

GASP  Files  Used  . None. 

Permanent  Attributes  Accessed. 

Rate  dataset  of  name  FCRTYP  (node,  claspr)  - 
ND  - number  of  demand  paths 
IRCTP  (ND  + IXR)  - receipt  rate  pointer 
Verb  Inputs 

From  Calling  Program. 

In  /VRBGSP/ : 

Attributes  of  the  shipment  are  in  ATR I B as  follows 
A - flow  class  number  *1000 
5 - amount 

(CRT  I - 1 ) 
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7 - name  of  rate  pointers  dataset  type  whose  receipt 
is  to  be  updated. 

F rom  UDDRA 1 . None . 

Verb  Outputs 

To  UDDRA 1 . 

Arguments  - 

AOHL/TSTEP  - increment  to  receipt  rate 
Second  - 0 indicates  update  of  entry  for  KRLNOD 
Third  - index  to  receipt  rate  stack  in  DTABLE 
Fourth  - top  switch,  0 indicates  no  action  if  KRLNOD 
is  not  found 

To  Calling  Program.  None . 

Programs  Called 

Verbs . None. 

Other.  UDDRA1  . 

Input/Output  Files  Used.  None. 


(CRT  1-2) 
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CSMAP 

General  Description 

This  module  maps  continuous  supply  variables  from  one  node  to  one  or 
more  other  nodes  under  the  direction  of  the  NODMP  datasets.  This  can  be 
used  to  merge  a node  with  another  one  for  aggregation  purposes  during  a 
model  run. 

Assembler  Inputs 

Arguments . None . 

Parameter  Slots.  None. 

Examp  I es 

CSMAP  should  be  used  within  an  R100P  so  that  the  node  and  class 
coordinates  are  available  in  Cl. 

RLOOP  (P  = * EXRAT  $ + LOOP  ON  EXOG.  RATES 

I = CLAS,  CLRXN, 

ACSUP ( ),  + SUPPLY  PROCESSING 

CSMAP  ) , + MAP  TO  NEW  NODE 

+ WHEN  NODMP  DATASET 
+ EXISTS 

GASP  Files  Used . None. 

Permanent  Attributes  Accessed 

NODMAP  (old  node)  - all  elements 
FCSTKS  (old  node,  class)  - all  elements 
EXRAT  (old  node,  class)  - all  elements 
OBOX  (old  node,  class)  - all  elements 
FCSTKS  (mapped  nodes,  class)  - all  elements 
EXRAT  (mapped  nodes,  class)  - all  elements 
OBOX  (mapped  nodes,  class)  - all  elements 
FCDMD  (old  node,  claspr)  - all  elements 
FCDMD  (mapped  nodes,  claspr)  - all  elements 
FCRPT  (old  node,  claspr)  - all  elements 

(CSMAP- 1 ) 
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FCRPT  (mapped  nodes,  claspr)  - all  elements 

MDLY  (old  node,  claspr,  source  of  supply  node)  - all  elements 
MDLY  (mapped  nodes,  claspr,  source  of  supply  node)  - all  elements 
Verb  Inputs 

From  Calling  Program. 

In  / SUPC/ : 

Cl  - coordinate  array  (node,  class) 

From  RLDREV.  None. 

From  DMAP.  None. 

Verb  Outputs 

To  RLDREV. 

Arguments  - 

First  - array  of  fractional  cell  values  from  old  node  OBOX 

Second  - TOLD  from  old  node  OBOX 

Third  - number  of  cells  in  old  node  OBOX 

Fourth  - value  of  1 indicates  other  than  materiel  boxcars 

Fifth  - array  of  cell  values  from  mapped  node  OBOX 

Sixth  - TOLD  from  mapped  node  OBOX 

Seventh  - number  of  cells  in  mapped  node  OBOX 

To  DHAP. 

Arguments  - 

First  - array  of  MDLY  elements  from  old  node 
Second  - array  of  MDLY  elements  from  mapped  node 
Third  - fraction  of  old  node  values  being  mapped 
To  Calling  Program.  None. 

Prog  rams  Cal  led 

Verbs . None. 

Other.  PERMDS , IUNPK2,  DMAP , RLDREV,  CLASS. 

I nput/Out pu t Files  Used.  None. 


(CSMAP-2) 
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CSRPT 

General  Description 


Continuous  supply  report  verb.  Prints  reports  on  supply  variables  in 
PDS  datasets  FCSTKS,  FCDMD,  and  FCRCPT  for  each  supply  node  in  the  model. 
Two  reports  are  printed,  examples  of  which  are  included  with  this  module 


Assembler  Inputs 


Arguments.  None. 


Parameter  Slots.  None. 

Examples 

CSRPT  can  be  included  in  the  standard  report  node  ZRPRT  or  anywhere 
else  in  the  model  description. 

ZRPRT CSRPT,  ... 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

FCSTKS  (all  nodes,  all  classes)  - all  elements 
FCDMD  (all  nodes,  all  classes  - all  elements 
FCRCPT  (all  nodes,  all  classes)  - all  elements. 

Verb  Inputs 

From  Calling  Program.  None. 

From  IDSLON. 

Arguments  - 

First  - pointer  to  first  word  of  dataset  in  DSPOOL 


Third  - number  of  elements  in  dataset. 


Verb  Outputs 


To  IDSLON. 


Argument  - 

Second  - name  of  PDS  dataset  to  loop  on. 


To  Calling  Program.  None. 


(CSRPT- 1 ) 
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Programs  Called 

Verbs.  None. 

°Lh-er-  CLEAR,  IDSLON,  LIN 
I nput/Output  Files  Heed 
None . 


\ 


(CSRPT-2) 
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CSTI  (DESTN,  |XR) 

General  Description 

Verb  to  generate  continuous  stock  turn-in  shipments.  Turn-in  stocks 
to  DESTN.  Fraction  FCDIVR.l  of  AOHL  is  turned  in  via  a shipment  through 
PS  1 . DBOX  and  AD  I L at  DESTN  node  are  updated. 

Assembler  Inputs 
Arguments . 

DESTN  - name  of  destination  node  for  turn-ins 
I XR  - index  of  receipt  rate  path  to  use  for  turn-ins. 
Parameter  Slots. 

1 - send  discrete  shipment  of  turn-ins  to  destination  node. 

Examples 

CSTI  can  be  utilized  to  generate  turn-in  shipments  from  one  node  to 
another.  Verb  CRTI  is  designed  to  receive  these  shipments. 

NODEA.  RLNOD  (P  = *N0DEA,  1.), 

CSTI  (P  = *N0DEB,  2 $ 

1 = RTURN  (P  = 0) , *N0DEB .2) 

NODEB. 

+ RECEIPT  OF  TURN-INS 

111  RLNOD  (P  = -'-NODEB,  13.), 

CRTI  (P  = 2)  . 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
FCSTKS  (node,  class).!  - 

AOHL  - actual  on  hand  level 
FCDIVR  (node,  class,  destination  node)  . I - 

DIVFAC  - fraction  of  AOHL  to  be  diverted 
FCSTKS  (destination  node,  class). 2 - 

ADIL  - actual  due  in  level,  incremented 

(CSTI -1 ) 
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FCRCTP  (destination  node,  claspr) .5+IXR  - 
RACC  - receipt  accommodation 


Verb  Inputs 


From  Calling  Program. 


In  /SUPC/ : 


Cl  - coordinate  array  (node,  class) 
PR  I - priority 


F rom  PS  1 . None. 
From  ABOXST.  None. 


Verb  Outputs 


To  ABOXST. 


Arguments 


First  - name  of  boxcar  dataset  to  use,  OBOX 

Second  - coordinates  of  boxcar  dataset  at  destination  node 

Third  - guantity  turned  in. 


To  PS1 


In  /MAWVRB/ : 


Attributes  of  the  shipment,  in  HOLD,  are: 

A - flow  class  * 1000  + 15 

5 - amount  being  turned  in 

6 - priority 

7 - name  of  rate  pointers  dataset  type  through  which 

flow  is  being  represented. 


Programs  Called 


Verbs.  None. 


Other.  ABOXST,  CLASS,  PERMDS , RLNIX. 
Input/Output  Files  Used 
None. 


(CSTI-2) 
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CSUP  (MSW) 

General  Description 

This  is  the  general  control  node  for  continuous  supply  operations. 
Parameter  slot  1 is  used  to  set  the  auxiliary  variables  in  common  area 
/SUPC/.  PS2  is  used  to  define  supply  demand  and  receipt  links  for  a node. 
CSUP  updates  stock  status  for  a class  of  supply  in  terms  of  rates  of  demand, 
ordering,  passing,  back  ordering,  receipt,  and  issue.  CSUP  calculates  stock 
status  in  a different  way  during  the  model  warmup,  that  is  before  time  TWARM. 

Also  at  the  beginning  of  warmup,  the  order  ship  time  (OST)  measuring  boxcars 

are  filled  with  the  due-out  level  for  the  perceived  order  ship  time. 

The  basic  elements  of  the  stock  status  are  updated  by  the  following 
equations : 

ADOL  = ADOL  + TSTEP  * (BOR  - IAB0R) 

DOHL  = DOHF  * SDAR 

AOHL  = AOHL  + TSTEP  * ( ( FD I R - IAB0R)  + TIR  - IFSR) 

AD  I L = AD  I L + TSTEP  * (REPLR  + BOPR  - FDIR) 

SDAR  = SDAR  + (TSTEP/RTBAS)  * (DAR  - SDAR) 

SREPLR  = SREPLR  + (TSTEP/RTBAS)  * (REPLR  - SREPLR) 

POST  = (POST  - TSTEP)  + (TSTEP/POST)  * POSTC 
where  POSTC  is  the  OST  for  the  materiel  which  has  just  come  in  as  a reple- 
nishment rate 

REPLR  = (DOHL  - AOHL)  + (SREPLR  * POST  - (AD I L - ADOL)) 

/POST  + IFSR  + BOR  - BOPR 

The  variable  names  used  are  defined  in  Table  I I I -9  for  the  FCSTKS  PDS 
dataset.  The  special  warmup  equations  which  replace  some  of  the  above  are: 
AOHL  = DOHL 

AD  I L = (REPLR  + BOPR)  * POST 
SDAR  = DAR 
REPLR  = DAR  - DPASR 
SREPLR  = REPLR 

(CSUP-I) 
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Assembler  Inputs 
Arguments . 

MSW  - If  MSW  = 0,  the  verb  accesses  FCSTKS  data  for  a management 
class. 

If  MSW  / 0,  the  verb  accesses  FCSTKS  for  a class. 

Parameter  Slots. 

1 - set  auxiliary  variables  in  /SUPC/  and  update  external  rate 

2 - define  links  (setup) 

Examp  1 es 

CSUP  is  generally  used  within  an  RL00P  which  determines  the  class  to 
be  considered. 

RL00P  (P  = * EXRAT  $ 

1 = CLAS,  CLRXN, 

CSUP  (P  = 1 $ 

1 = PL00P  (1  = PRSPL , 

CDMDS  (P  = 1 $ 


CRCPT  (P  = I $...))  $ 

2 = RLRLK  ( ) , + DEFINE 

RLDLK  ( ))))  + LINKS 

GASP  Files  Used  . None . 

Permanent  Attributes  Accessed 
FCSTKS  (node,  class)  or 
FCSTKS  (node,  clasm)  - all  elements 

EXRAT  (node,  class)  - fraction  of  rate  that  is  in  a priority  group 
FCRCPT  (node,  claspr)  - receipt  accommodations 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

Cl  - node  and  class  coordinates 
C2  - node  and  claspr  coordinates 
PR  I - priority 

(CSUP-2) 
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From  PS  I . 

In  / SUPC/ : 

STKS  - array  of  FCSTKS  elements,  possibly  altered  by  verbs 
in  PS1  . 

From  PS2.  None. 

Verb  Outputs 
To  PS  I . 

In  /SUPC/: 

Cl  - node  and  class  coordinates 
C2  - node  and  class  coordinates 
PP I - priority 

STKS  - array  of  FCSTKS  elements 
To  PS2.  None. 

To  Calling  Program.  None. 

Programs  Called 

Verbs . None. 

Other.  ABOXST , DBOXST,  GETSET,  PERMDS , SETSET,  CLASS,  CLEAR. 
Input/Output  Files  Used.  None. 


(CSUP-3) 
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CTI 

S/S/S*4 

6/7*4 

CTI  (MSW) 

General  Description 

This  verb  sets  the  turn-in  rate  from  PDS  dataset  EXTI  (node,  class). 2 
into  XN (M  ,10)  in  /SUPC/.  The  value  of  the  M to  be  used  should  have  been 
set  previously  if  MSW  = 0.  Otherwise  the  value  of  MSW  will  be  used  for  M. 
Assembler  Inputs 
Arguments . 

MSW  - 0,  use  M as  set  in  /SUPC/  to  designate  management  class 
index  in  dataset  MGTCL. 

Positive,  set  M to  MSW. 

Parameter  Slots.  None. 

Examp  1 es 

CTI  can  be  used  to  set  the  turn-in  rate  in  PS1  of  CSUP  for  use  in 
aggregating  over  M-classes  in  CSUP. 

ML00P  (1  = CSUP  (P  = 0 $ 
i = CTI , 

CREPL, 

CRCPT  (P  = 0 ))) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
EXTI  (node,  class). 2 - 

TIRI  - turn-in  rate  for  individual  node. 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

Cl  - coordinate  array  (node,  class). 

Verb  Outputs 

To  Calling  Program. 

(CTI -1 ) 
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In  /SUPC/ : 

TIRN(M)  - turn-in  rate  from  all  sources  for  the  M-class. 

Programs  Cal  led 

Verbs . None. 

Other.  PERMDS . 

Input/Output  Files  Used 
None . 


(CTI-2) 
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DUPDI 

S/S/SA 

5/75 

DUPDI 

General  Description 

Special  verb  to  reflect  duplicate  ordering  at  a node  by  incrementing 
due-in  level  and  the  level  in  OST  measuring  boxcars. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examples 

DUPDI  can  be  used  in  PS2  of  CDMDS 
RLOOP  (P  = *FCRAT  S 

1 = CLAS,  MSET, 

CDMDS  (P  = 0 $ 

1 = TFILL  $ + DEMAND  FILL 

2 = CPALL , 

DUPDI  , 

PASSL  )) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
FCDMD  (node,  claspr).6  - 

DAC  - demand  accommodation 
FCSTKS  (node,  clars).2  - 

ADIL  - actual  due-in  level. 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

Cl  - coordinate  array  (node,  class) 

C2  - coordinate  array  (node,  claspr) 

IXRLC  - index  to  coordinates  of  FCRTYP  dataset  in  RLC  array 
in  /LC/ 

(DUPDI -1) 
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IFSRI(M)  - issue  from  stock  rate  for  Mclass 
In  /DSSAL/: 

IFSRL  - issue  from  stock  rate  loss 
From  ABOXST.  None. 

Verb  Outputs 

To  ABOXST. 

Arguments  - 

First  - name  of  boxcar  dataset,  OBOX 
Second  - coordinates  of  OBOX  dataset 

Third  - amount  to  be  added  to  boxcar  for  OST  measuring 
To  Calling  Program.  None. 

Programs  Called 

Verbs . None. 

Other.  ABOXST,  PERMDS . 

Input/Output  Files  Used 
None . 


(DUPDI-2) 
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LARPL 

S/S/SA 

5/75 

LARPL  (MSW,  1X0) 

General  Description 

This  model  multiplies  the  normal  replenishment  rate,  REPLR,  by  a look 
ahead  forecast  factor  to  inflate  the  replenishment  demand.  The  factor  is 
stored  in  PDS  dataset  LAFC.l.  The  demand  rate,  IXD,  is  updated  with  the 
inflated  value. 

Assembler  Inputs 
Arguments . 

MSW  - if  0,  use  M value  in  /SUPC/  to  determine  management  class 
to  use 

- if  positive,  set  M = MSW. 

IXD  - index  to  the  demand  rate  pointer  in  FCRAT  dataset 
Parameter  Slots.  None. 

Examp  1 es 

LARPL  can  be  used  in  PS1  of  CSUP  to  update  the  replenishment  rate  at 
a supply  support  node. 

ML00P  (1  = CSUP  (P  = 0 $ 

1 = LARPL  (P  = 0,  1)  , 

CRCPT  (P  = 0))) 

GASP  Files  Used.  None. 

Permanent  Attributes  Accessed. 

LAFC  (node) .2  - 

LAF  - look  ahead  factor 
FCRAT  (node,  claspr)  - 

IXD+2  - pointer  to  rate  stack  to  update 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

M - M class  index  to  use  if  MSW  = 0 
CLAS  = class  of  supply 

(LARPL- 1) 
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CLASM  = management  class  of  supply 
PR  I = priority 
From  UDDR.  None. 

Verb  Outputs 
To  UDDR. 

Arguments  - 

First  - replenishment  rate  to  update  demand  rate  with 
Second  - the  successor  entry  to  this  node  entry  is  to 
Third  - pointer  word  to  rate  stack  to  use  in  DTABLE 
Fourth  - bottom  switch,  1 indicates  that  botom  entry  i 
is  to  be  updated  if  KRLNOD  entry  is  not  found 
To  Calling  Program.  None. 

Programs  Called 

Ve  rbs . None. 

Other.  UDDR,  PERMDS . 

Input/Output  Files  Used.  None. 


be  updated 
n stack 


(LARPL-2) 
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MDENS 

S/S/SA 

6/ 7 A 

MDENS 

General  Description 

This  verb  accumulates  weight  and  cube  contributed  by  the  issue  from 
stock  rate  IFSRI  for  each  management  class  for  later  use  by  RDENS  in 
calculating  average  density  in  a receipt  rate  for  a class. 

Assembler  Inputs 

Arguments.  None . 

Parameter  Slots.  None. 

Examples 

This  verb  can  be  used  after  the  issue  from  stock  rate  for  an  Mclass 
has  been  set. 

RLOOP  (P  = *FCRAT  $ 

1 = CLSPC , CLAS,  MDLY , MSET, 


+ FILL  BY  NDOE , PR  I , AND  MCLASS 
+ M CLASS  DENSITY 
+ UPDATE  RECEIPT  RATE 


C I CPD , 

MDENS) , 

TOCCP  (P  = 1 $ 

1 = RDENS) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

CLATTR  (Mclass)  - class  attributes 

1 - density  (weight  per  volume) 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

IFSRI (m)  - issue  from  stock  rate  to  an  individual  account 
for  an  Mclass 

M - index  to  management  class  to  use. 

Verb  Outputs 

To  Calling  Program. 

(MDENS- I ) 
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In  /SUPC/ : 

WSUM  - cumulative  weight  of  materiel 
CSUM  - cumulative  cube  of  materiel  in 

Programs  Cal  led 

Verbs . None. 

Other  . PERMDS . 

Input/Output  Files  Used 
None . 


(MDENS-2) 
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MDLY 

S/S/SJ* 

5/7*4 

MDLY 

General  Description 

This  verb  retrieves  the  PDS  dataset  MDLY  (demand  node,  claspr,  source 
node)  into  array  OLYM  in  /S UPC/.  If  the  dataset  does  not  exist,  one  is 
created,  assigning  rate/level  delay  indexes  from  FCDMD  (source  node, 
clasmpr).5  for  each  Mclass  at  this  source  node. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None . 

Examples 

MDLY  can  be  used  inside  an  RLOOP  to  set  management  class  delay  indexes 
in  /SUPC/  before  verb  CICPD 

RLOOP  (P  = -FCRAT  $ 

1 = CLSPC , CLAS, 

MDLY,  MSET, 

CICPD  ) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

MDLY  (RLC  (1,  IXRLC),  claspr,  RLNOD)  - 

Delay  indexes  for  management  class  fill 
MGTCL  (node)  - management  class  codes 

FCDMD  (node,  clasmpr).5  - index  of  rate/level  fill  time  delay 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

IXRLC  - index  to  coordinates  in  RLC  of  FCRTYP  dataset 
CLASPR  - classm  * 100  + priority 
RLNOD  - current  node  number 

(MDLY- 1 ) 
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Verb  Outputs 

To  Calling  Program. 

In  /SUPC/ : 

DLYM  - array  of  rate  level  delay  indexes  for  fill  time. 

Programs  Called 

Verbs . None. 

Other.  PERMDS . 

Input/Output  Files  Used 
None . 


(MDLY-2) 
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MSET 

S/S/SA 

1/75 

MSET 

General  Description 

Sets  Mclass  index,  M,  in  /SUPC/  as  the  location  in  PDS  dataset  MGTCL 
(RLNOD)  in  which  current  flow  class,  CLAS,  appears.  M = 0 is  returned  if 
CLAS  is  not  found  or  the  dataset  is  not  found. 

Assembler  Inputs 

Arguments . None . 

Parameter  Slots.  None. 

Examp  1 es 

MSET  can  be  used  anywhere  that  a management  class  has  been  set  into 
the  variable  CLAS,  for  example  in  an  RLOOP  or  FCRAT  datasets  for  management 
classes . 

RLOOP  (P  = '•FCRAT  $ 

1 = CLSPC , CLAS,  MDLY , MSET, 

CICPD, 

TOCCP  ) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

MGTCL  (node)  - codes  for  all  management  classes  at  this  node. 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

CLAS  - code  for  supply  management  class  being  considered. 

Verb  Outputs 

To  Calling  Program. 

In  /SUPC/: 

M - index  of  management  class  in  GMTCL 
CLASM  - management  class  code 

SFM(M)  - splitting  factor  for  this  Mclass,  set  to  1.  since 
CLAS  = CLASM. 

(MSET- 1 ) 
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Programs  Called 

Verbs . None. 
Other.  PERMDS . 
Input/Output  Files  Used 
None . 


(MSET-2) 


IV-70 


THE  BDM  CORPORATION 


PASSL 

S/S/S4 

5/75 

PASSL 

General  Description 

Pass  unfilled  loss  demand  from  a node.  The  passing  rate  is  altered 
as  foil ows : 

DPASRI  = DPASRI  - IFSRL 
IFSRL  = 0. 

DARL  = 0. 

where  IFSRL  = issue  from  stock  rate  for  loss  demands 

DARL  = demand  arrival  rate  for  losses. 


Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examples 

This  verb  can  be  used  in  PS2  of  CDMDS  to  alter  the  demand  passing  rate. 
CDMDS  (P  = 0 $ 

1 = TFILL  $ 

2 = CPALL , PASSL  ) + PASS  ALL  DEMANDS 

+ PLUS  LOSSES  NOT  FILLED. 


GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

DPASRI  - demand  pass  rate 
In  /DSS4L/: 

IFSRL  - issue  from  stock  rate. 


Verb  Outputs 

To  Calling  Program. 


(PASSL-1 ) 
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In  /SUPC/ : 

DPASRI  - demand  passing  rate 
In  /DSS4L/: 

IFSRL  - issue  from  stock  rate 
DARL  - demand  arrival  rate. 

Programs  Called 

Verbs . None. 

Other . None. 

Input/Output  Files  Used 
None . 


(PASSL-2) 
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PRDST 

S/S/Sb 

3/75 

PRDST 

General  Description 

This  verb  is  designed  for  error  checking  purposes.  It  prints  all 
datasets  of  the  dataset  type  specified  by  number  (not  by  name)  in  ATRIB(3). 
This  verb  can  therefore  be  scheduled  by  a FILE  card  in  node  ZINIT.  A dump 
of  /DSTYPS/  is  given  if  ATRIB(3)  is  zero.  This  will  yield  the  dataset 
type  numbers.  Control  is  returned  to  the  calling  program  after  the  print 
out  is  completed. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Exampl es 

This  verb  can  be  placed  in  a subnode  of  ZRPRT  referenced  by  a FILE 
verb  in  ZINIT. 

ZINIT. 

FILE  (P  = 1 $ 1 = RTURN  (P  = 0) , *ZRPRT.10), 


ZRPRT. 


/ 1 0/  PRDST. 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
In  /DSTOR/ : 

- array  of  number  of  elements  in  each  dataset  type 
array  of  number  of  datasets  that  exist  of  eac 
array  of  element  names  for  each  dataset  type 
is  in  all  ( 

(PRDST- 1 ) 
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of 

NSETSD 

- array 

of 
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/0COOM  - coordinates  of  dataset  type  specified. 

\Ip rb  Inputs 

Fr™  filing  Program. 

ZZ'll,  - fade*  of  requested  dataset  type  >n 

,f  u is  zero,  a dump  of  /DSTVPS/ 

F rom  I DSLOO  ■ 

Ar,TrI<"-  ' ndex  to  first  eiement  of  dataset  in 
Third  - number  of  elements  in  dataset. 

Vorh  Outputs 

Tea  railing  Program-  None. 

To  I DSLOO. 

'Vr9'”"n  ‘ „ dataset  type  to  loop  on. 

Second  - number  of  dataset  <-yy 

Programs  Called 

Verbs.  None. 

Other.  I DSLOO,  DMDST,  PGHDR. 


(PRDST-2) 
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PRSPL 

S/S/S4 

3/74 

PRSPL 

General  Description 

Determines  portion  of  demand  coming  into  current  node  from  EXRAT 
(node,  clas)  that  is  of  priority  PR  I in  /SUPC/,  and  assigns  this  as  demand 
arrival  rate  for  FCRAT  (node,  claspr). 

Assembler  Inputs 

Arguments . None. 

Parameter  S lots  . None. 

Examples 

PRSPL  can  be  used  inside  an  RLOOP  on  dataset  EXRAT  to  split  the 
exogenous  rate  into  priority  streams. 

RLOOP  (P  = --FXRAT  $ 

1 = CLAS,  CLRXN , 

CSUP  (P  = 1 $ 

1 = PLOOP  (1  = PRSPL, 

CDMDS  ...  ))) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

FCRAT  (node,  claspr)  - pointer  words  to  demand  rate  stacks  in  DTABLE . 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

XRAT  - elements  of  EXRAT  dataset 
C2  - coordinate  array  (node,  claspr) 

I PR  I - priority  index  to  PRIORY 

FIPGI(IPRI)  - fraction  of  exogenous  rate  that  is  of  priority 
IPRI 

From  IRSTK  (first  call). 

Function  value  - index  to  exogenous  rate  in  DTABLE. 

(PRSPL- 1 ) 
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From  IRSTK  (second  call). 

Function  value  - index  to  demand  arrival 
Verb  Outputs 
To  IRSTK. 

Arguments  - 

First  - node  number  of  entry  in  rate 
Second  - pointer  word  to  rate  stack 

Programs  Called 

Verbs . None. 

Other.  IRSTK,  PERMDS . 

Input/Output  Files  Used 
None . 


(PRSPL-2) 
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RDENS 

S/S/SA 

6/7A 

RDENS 

General  Description 

Calculates  density  of  flow  for  current  rate  by  dividing  total  weight 
= WSUM  by  total  cube  = CSUM  and  places  the  value  in  the  rate  attribute 
dataset  RATATT.2.  If  the  dataset  or  density  element  does  not  exist,  this 
verb  creates  i t . 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  1 es 

RDENS  can  be  used  in  PS1  of 
for  WSUM  and  CSUM  in  /SUPC/ 

MLOOP  (1  = CICPD, 

MDENS)  , 

TOCCP  (P  = 1 $ 

1 = RDENS) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

RATATT  (RIXDT).2  - density  of  materiel  in  flow  for  RIXDT  entry  in 
rate  stack. 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

RIXDT  - index  to  entry  in  rate  stack  in  DTABLE  to  calculate 
density  for 

CSUM  - cumulative  volume  of  materiel  in  flow 
WSUM  - cumulative  weight  of  materiel  in  flow. 

Verb  Outputs 

To  Calling  Program.  None. 

(RDENS- 1 ) 
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Programs  Called 

Verbs . None. 
Other.  PERMDS . 
Input/Output  Files  Used 
None . 


(RDENS-2) 
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RLSGN 

S/S/S4 

5/75 

RLSGN  (IXR) 

General  Description 

Generates  exogenous  shipments.  An  event  with  attributes 

1 TNOW 

2 Destination  RLNODE 

3 Priority 

4 Weight  of  Mclass  1 to  be  shipped 

5 Weight  of  Mclass  2 to  be  shipped 


Causes  UDRRA1  to  be  called  and  the  amount  of  the  shipment  to  be 
converted  to  a rate  in  the  FCRAT  return  flow  link  specified  from  the  current 
node  to  the  destination  node  for  the  specified  class  and  priority. 

Assembler  Inputs 
Arguments . 

IXR  - index  to  the  receipt  rate  in  FCRAT  (destination  node, 
clasmpr)  to  use  for  exogenous  shipments. 

Parameter  Slots.  None. 

Examples 

RLSGN  should  be  placed  in  a separate  subnode  that  can  be  addressed  by 
a FILE  verb  which  reads  in  the  attributes  necessary. 

ZINIT. 

FILE  (P  = 1 $ 1 = RTURN  (P  = 0) , * N0DEA.2) 

NODEA. 


Ill  RLNOD  (P  = •'•NODEA ,2), 

RLSGN  (P  = 1)  . 

(RLSGN- 1 ) 
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GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

MGTCL  (node)  - codes  for  management  classes  at  this  node 
FCRAT  (destination  node,  clasmpr)  - 
ND  - number  of  demand  paths 

IRPTR  - pointer  words  for  receipt  rate  stacks  in  DTABLE 
CLATTR  (clasm).l  - density  of  Mclass. 

Verb  Inputs 

Prom  Calling  Program. 

In  /VRBGSP/ : 

ATRIB  - attributes  of  exogenous  shipment 
) TNOW 

2 Destination  RLNODE 

3 Priority 

1+  Weight  of  Mclass  I to  be  shipped 

5 Weight  of  Mclass  2 to  be  shipped 


In  /RLSYS/ : 

RLNOD  - current  rate/level  node  number. 
F rom  UDRRA1 . None. 

Verb  Outputs 

To  UDRRA1 . 


Arguments  - 

First  - rate  of  flow  to  increment  rate  with 
Second  - indication  to  update  the  successor  to  the  stack 
entry  associated  with  KRLNOD 
Third  - pointer  to  rate  stack  in  DTABLE  to  be  searched 
Fourth  - top  switch,  value  1.  indicates  that  entry  farthest 
up  stream  should  be  incremented  if  KRLNOD  entry  is 
not  found. 

(RLSGN'2) 


IV- 80 


THE  BDM  CORPORATION 


To  PDS  Datasets. 

RATATT  (R I XDT ) . 2 - density  of  materiel  flow 

FCSTKS  (destination  node,  class). 2 - actual  due-in  level 

FCRCPT  (destination  node,  claspr).5  + IXR  - receipt  accommodation. 


Programs  Called 

Verbs . None. 

Other.  PERMDS  , UDDRA1 . 
Input/Output  Files  Used 
None . 


(RLSGN-3) 
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RLTGN 

S/S/S'* 

6/7A 

RLTGN 

General  Description 

This  verb  generates  exogenous  turn-ins  for  all  (node,  class)  combina- 
tions for  which  there  exist  a PDS  dataset  of  type  EXTI. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  I es 

This  verb  can  be  included  in  an  exogenous  demand  generator  node  to 
set  the  values  in  EXTI. 

EXDGN . RLDGN  (P  = ■'•EX RAT,  1,  2,  0)  , 

RLTGN, 

* NXNOD  S 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

EXTI  - all  exogenous  turn-in  datasets 

1 - index  of  random  variable  in  PARAM  that  represents  turn-in  rate. 
Verb  Inputs 

From  Calling  Program.  None. 

From  IDSLON. 

Function  value  - index  to  DSPOOL  of  first  element  in  dataset  EXTI. 
From  DISTR. 

In  /ZMAWSY/ : 

ZSWT  - turn-in  rate  from  distribution  specified. 

Verb  Outputs 

To  IDSLON. 

Arguments  - 

First  - name  of  PDS  dataset  to  loop  on 
(RLTGN-1) 
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To  DISTR. 

Argument 

First  - index  of  random  variable  in  PARAM  array  that 
represents  exogenous  turn-in  rate. 

To  PDS  datasets. 

EXT  I 

2 - current  turn-in  rate. 

To  Calling  Program.  None. 

Programs  Called 

Verbs.  DISTR. 

Other.  IDSLON. 

Input/Output  Files  Used 
None . 


(RLTGN-2) 
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SETPR 

S/S/S4 

k/lk 

SETPR  (PR) 

General  Description 

Sets  the  variable  PR  I In  /SUPC/  to  PR  and  the  index  IPRI  to  the  position 
of  priority  PR  in  dataset  PRIORY.  Variables  CLASPR  and  C2(2)  are  also  set 
to  CLAS  * 100  + PR  I . 

Assembler  Inputs 
Arguments . 

PR  - priority  code  to  use 
Parameter  Slots.  None. 

Examples 

SETPR  can  be  used  anywhere  to  specify  a particular  priority  at  a node 
or  subnode. 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

PRIORY  (node)  - priority  codes  at  this  node. 

Verb  Inputs 

From  Calling  Program. 

In  /RLSYS/ : 

RLNOD  - rate/level  node  number 
In  /SUPC/: 

CLAS  - class  of  materiel  being  considered. 

Verb  Outputs 

To  Calling  Program. 

In  /SUPC/: 

PRI  - priority  code  PR 

IPRI  - index  to  priority  code 

CLASPR  - CLAS  * 100  + PRI  . 

Programs  Cal  led 

Verbs.  None. 

(SETPR- 1 ) 
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Other.  PERMDS . 
Input/Output  Files  Used 
None . 


(SETPR-2) 
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SFM 

S/S/SA 

5/74 

SFM 

General  Description 

Retrieves  MCLASS-spl i tt i ng  factors  from  PDS  dataset  MGTSF (RLC ( I . I XRLC ) . 
CLAS.RLNOD)  into  SFM  in  /SUPC/. 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  1 es 

SFM  can  be  used  at  a node  that  processes  different  management  classes 
defined  in  MGTCL  dataset. 

RLOOP  (P  = *FCRAT  $ 

1 = CLSPC , CLAS, 

SFM,  MDLY , 

MLOOP  (1  = CICPD) , 

TOCCP  (P  = 1 $ )) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

MGTSF  (demand  origination  node,  claspr,  source  node)  - factors  to 
split  a flow  from  origination  node  into  flows  in  management 
classes  at  source  node. 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

I XRLC  - index  to  coordinates  of  FCRTYP  rate  dataset  in  RLC 
array 

CLASPR  - class  * 100  + priority 
In  /RLSYS/ : 

RLNOD  - rate/level  node  number. 

(SFM- I ) 
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Verb  Outputs 

To  Calling  Program. 

In  /SUPC/ : 

SFM  - array  containing  elements  from  MGTSF  dataset 

(array  is  cleared  to  zero  if  dataset  is  not  found). 

Programs  Cal  led 

Verbs . None. 

Other.  CLER1  , PERMDS  . 

Input/Output  Files  Used 
None . 


( SFM - 2 ) 
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SLOSS 

S/S/S4 

1/75 

SLOSS  (MSW,  IXD) 

General  Description 

Simulate  random  losses  from  inventories  and  the  ordering  of  their 
replenishment.  The  loss  in  a time  period  is  computed  in  two  stages.  First 
a random  number  is  drawn  and  compared  with  SLOSS.  1 to  see  whether  there  is 
a loss.  If  there  is,  the  fraction  of  the  current  inventory  lost  is  deter- 
mined by  a call  to  VD I STR  (QLOSS)  , where  Q.L0SS,  taken  from  SLOSS. 2,  is  the 
index  of  a probability  function  described  in  PARAM.  Replenishment  is 
delayed  by  delay  SLOSS. 3.  The  due-in  level  FCSTKS (C 1 ) . 2 , is  increased  by 
the  replenishment  quantity,  namely  the  delayed  replenishment  rate  multiplied 
by  TSTEP.  The  replenishment  rate  is  entered  into  RATATT.l  for  the  demand 
rate  associated  with  the  successor  to  the  current  node  in  the  rate  stack 
pointed  to  by  FCRAT(C2) . ( IXD+2) . 

Assembler  Inputs 
Arguments ■ 

MSW  - if  0,  use  CLASM  for  dataset  coordinates 

if  positive,  set  M to  MSW  and  use  CLAS  for  dataset  accessing 
IXD  - demand  rate  path  to  use  for  replenishment  of  losses. 
Parameter  Slots. 

1 - define  links  in  setup  pass 

2 - convert  rating  to  flow  (e.g.  , UDDMD) . 

Examples 

SLOSS  can  be  used  anywhere  in  a node  when  coordinates  Cl  and  C2  have 
been  set  for  an  FCRAT  dataset. 

NODEA.  RL00P  (P  = ••EXRAT  $ 

1 = CLAS,  CLRXN , 

ACSUP  (. . . ) + DEFINE  LINKS 
SLOSS  (P  = 1 ,2  $ 

1 = BRLKD  (P  = 2 $ 

2 = RLDLK  (P  = *N0DEB,  0.)  $ 

2 = UDDMD  (P  = 2)))) 

+ A special  loss  replenishment  link  is  defined  to  NODEB. 

(SLOSS- 1 ) 


THE  BDM  CORPORATION 


GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 

FCRAT  (node,  claspr)  - pointer  words  to  rate  stacks 
SLOSS  (node,  class)  - 

1 - probability  of  loss  of  inventory 

2 - index  to  distribution  in  PARAM  of  quantity  lost 

3 - loss  replenishment  delay 

FCSTKS  (node,  class).  1 - actual  on  hand  level. 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

Cl  - coordinate  array  (node,  class) 

C2  - coordinate  array  (node,  claspr) 

F rom  UN  I FRM . 

Argument 

ZSWT  - random  number 
F rom  VD I STR . 

In  /ZMAWSY/: 

ZSWT  - fraction  of  AOHL  lost 
F rom  RLOLY  . 

Function  Value  - delayed  replenishment  rate 
From  ABOXST . None. 

Verb  Outputs 

To  UNIFRH.  None. 

To  VD I STR . 

Argument  - index  of  quantity  lost  distribution  in  PARAM 
To  RLDLY. 

Arguments 

First  - replenishment  rate/level  delay  Index 
Second  - loss  replenishment  rate 


(SLOSS-2) 
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SUMXI 

S/S/S*4 

3/7A 

SUMXI 

General  Description 

Aggregates  accross  1st  index  of  XI  into  summary  variables  XIS.  At 
theater  and  CONUS  in  the  DSS  flow  model.  This  corresponds  to  summarizing 
across  management  classes  to  obtain  the  overall  response  to  an  account. 
Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None. 

Examp  1 es 

SUMXI  can  be  used  after  an  MLOOP  to  sum  stock  status  values  over  all 
management  classes. 

RLOOP  (P  = *FCRAT  $ 

1 = CLAS, 

SFM , 

MLOOP  (1  = CDMDS  (P  = 0 $ 

1 = CPNBO) ) , 

SUMXI  , 

CISSU  (P  = 2,  1 .)  , 

CPASS  (P  = 1) 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

XI  - array  equivalenced  to  stock  status  elements  for  an 
individual  account. 


Verb  Outputs 

To  Calling  Program 


(SUMXI-1) 
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In  /SUPC/ : 

X I S - summary  array  for  stock  status  variables,  aggregated 
across  1st  index  of  XI  which  is  management  class. 

Programs  Called 

Verbs . None . 

Other . CLEAR. 

Input/Output  Files  Used 
None . 


(SUMXI-2) 
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TFILL 

S/S/S4 

1/75 

TFILL 

General  Description 

Verb  to  calculate  fill  rate  distribution  value  from  a tabular  distri- 
bution. Returns  f(x),  given  x,  where  f (x)  is  expressed  as  a piecewise 
linear  function  in  DTABLE.  IZSWT  is  assumed  to  contain  the  PARAM  index 
by  which  the  table  is  identified.  The  table  entries  are  pairs  of  the 
form  (x , f (x) ) . 

Assembler  Inputs 

Arguments . None. 

Parameter  Slots.  None . 

Examp  1 es 

TFILL  can  be  used  in  PS]  of  CDMDS 
CDMDS  (P  = 1 $ 

1 = TFILL  $ 

2 = CBO  ) 

Statistics  Coll ected 

None . 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /ZMAWSY/ : 

IZSWT  - parameter  index  of  table  in  array  PARAM 
ZSWT  - x value 

To  XLINE. 

Arguments  - 

First  - index  of  distribution  in  PARAM  array 
Second  - x value. 

(TFILL-I) 
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Verb  Outputs 

From  XLINE. 

Function  value  - f(x)  value 
To  Calling  Program. 

In  /ZMAWSY/ : 

ZSWT  - f(x)  value. 

Programs  Called 

Verbs . None. 

Other.  XLINE. 

Input/Output  Files  Used 
None . 


(TFILL-2) 
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TOCCP 

S/S/S4 

4/7A 

TOCCP  (IXR) 

General  Description 

Starts  a receipt  rate  from  a source  node  to  a CCP  or  a customer.  This 
verb  converts  IFSRS  in  /SUPC/  into  the  top  return  rate  in  the  IXR-th  return 
rate  stack  for  the  current  NODE/CL/PRI  reflected  in  the  coordinates  in  RLC 
(*,IXRLC),  where  IXRLC  is  in  /SUPC/.  The  pointer  to  the  IXR-th  return 
stack  is  assumed  present  in  RATPS(lXR+2)  in  /SUPC/,  having  been  defined 
during  a setup  pass.  PS1  is  made  available  for  adjusting  the  rate  or  its 
attributes.  For  example,  RDENS  may  be  used  in  it  to  derive  the  density  of 
the  flow  in  terms  of  WSUM  and  CSUM  in  /SUPC/. 

Assembler  Inputs 
Arguments . 

IXR  - index  to  the  receipt  rate  to  use  for  the  issue  from  stock 
rate  from  this  node. 

Parameter  Slots. 

1 - rate  adjustments  may  be  made  through  PS1  (e.g.,  RDENS). 

Examples 

TOCCP  can  be  used  at  a source  of  supply  node  after  IFSRS  has  been  set 
in  /SUPC/. 

RLOOP  (P=*FCRAT  $ 

1 = CLSPC , CLAS,  MDLY , MSET, 

CICPD,  + FILL  BY  ACCT/PR I /CLAS 
TOCCP)  , 

*NXN0D  $ 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

(TOCCP- 1 ) 
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In  /SUPC/ : 

IFSRS  - issue  from  stock  rate  accumulated  over  all  M classes 
RATPS  - elements  of  rate  dataset 
ND  - number  of  demand  paths  in  rate  dataset 

NR  - number  of  receipt  paths  in  rate  dataset 

From  UDRR.  None. 

Verb  Outputs 
To  UDRR. 


Arguments  - 

First  - IFSR  to  update  receipt  rate  with 
Second  - the  successor  to  rate  stack  entry  associated  with 
KRLNOD  will  be  updated 
Third  - pointer  to  rate  stack  to  update 
Fourth  - top  switch,  value  of  1.  indicates  that  top  stack 

entry  is  to  be  updated  if  KRLNOD  entry  is  not  found. 

To  PS1  . 

In  /SUPC/: 

IFSRS  - issue  from  stock  rate. 

To  Calling  Program.  None. 

Programs  Called 

Verbs . None. 

Other.  UDRR. 

Input/Output  Files  Used 
None . 


(TOCCP-2) 
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UDDHD 

S/S/S4 

4/74 

UDDHD  (IXD) 

General  Description 

This  verb  calls  routine  UDDR  with  a zero  rate  to  update  the  demand 
rate  with  the  rate  increment  present  in  the  PDS  dataset  RATATT.l  for  the 
specified  rate  stack  entry. 

Assembler  Inputs 
Arguments . 

IXD  - index  to  the  demand  rate  stack  pointer  word  in  RATPS  array, 
i.e.,  which  demand  path  to  update. 

Parameter  Slots.  None. 

Examp  1 es 

UDDMD  can  be  used  to  transfer  a rate  increment  in  RATATT  to  the  rate 
stack  for  a node,  where  the  RATATT  value  has  been  developed  by  another 
verb  such  as  SLOSS.  UDDMD  should  not  be  used  for  normal  demand  path 
updating  since  it  ignores  the  standard  demand  rates  such  as  DPASR  and 
REPLR  In  /SUPC/  and  uses  only  the  RATINC.  Care  should  also  be  taken  so 

that  UDDMD  does  not  destroy  a value  in  the  rate  stack  that  has  already 

been  set  in  the  rates  pass,  such  as  in  UDRAT. 

SLOSS  (P  = 1,  2),  + CALCULATE  LOSSES 

UDDMD  (P  = 2)  + PLACE  LOSS  REPLENISHMENT 

+ DEMANDS  IN  PATH  D2 

GASP  Files  Used 
None . 

Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

DARP  - array  of  demand  and  receipt  pointer  words  from 
FCRTYP  dataset 

(UDDMD- 1 ) 
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ND  - number  of  demand  paths  in  FCRTYP  dataset 
From  UDDR.  None. 

Verb  Outputs 
To  UDDR. 

Arguments  - 

First  - 0 rate  value  to  update  demand  stack,  causes  RATINC 
in  RATATT  dataset  to  be  used  alone 
Second  - KRLNOO,  positive  value  indicates  that  successor 
entry  to  KRLNOD  is  to  be  used 
Third  - pointer  to  rate  stack  in  DTABLE  to  search 
Fourth  - bottom  switch,  1.  value  indicates  that  bottom 
stack  entry  should  be  updated  if  KRLNOD  entry 
cannot  be  found. 

To  Calling  Program.  None. 

Programs  Called 

Verbs . None. 

Other.  UDDR. 

Input/Output  Files  Used 
None . 


(UDDMD-2) 
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UDRAT 

S/S/SA 

4/7A 

UDRAT  (IRPLP,  I XD , IXR) 

General  Description 

Updates  demand  and  return  rates  exiting  a node  for  a class  CLAS  of 

priority  PRI  with  index  I PR  I . The  demand  rate  stack  updated  is  that  pointed 

to  from  DARP  in  /SUPC/.  It  is  updated  in  terms  of  the  passing  rate 
DPASRI(M).  Unless  IRPLP  = I PR  I . In  which  case  the  sum  DPASRl(M)  + REPLR 
is  used.  The  receipt  rate  stack  updated  is  that  pointed  to  by  IRCTP(IXR). 

It  is  updated  in  terms  of  the  sum  IFSRl(M)  + I A BOR  I ( M ) + RPASRl(M). 

Assembler  Inputs 
Arguments . 

IRPLP  - index  to  the  replenishment  priority,  if  IRPLP  = I PR  I , 
then  the  replenishment  REPLR  is  added  to  the  demand 
passing  rate 

IXD  - index  to  the  demand  rate  to  update 

IXR  - index  to  the  receipt  rate  to  update,  if  0,  only  demand 

rate  is  updated. 

Parameter  Slots.  None. 

Examples 

UDDMD  can  be  used  after  CDMDS  and  CRCPT  have  calculated  the  proper 
value  for  the  rates  in  /SUPC/. 

CSUP  (P  = I $ 

1 = PL00P  (1  = PRSPL , 


CDMDS 

(P  = 1 $ 

1 = WBFIL  $ 

2 = CBOP  ), 

CRCPT 

(P  = 1 $ 

I = WBFIL  ) , 

UDRAT 

(P  = 2,1,0))) 

GASP  Files  Used 


None . 


(UDRAT- 1 ) 
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Permanent  Attributes  Accessed 
None . 

Verb  Inputs 

From  Calling  Program. 

In  /SUPC/ : 

M - index  to  management  class  in  MGTCL  dataset 

I PR  I - index  to  priority  code  in  PRIORY  dataset 

DPASRI  - demand  passing  rate 

REPLR  - replenishment  rate 

IFSRI  - issue  from  stock  rate 

IAB0RI  - issue  against  back  order  rate 

RPASRI  - receipt  passing  rate 

ND  - number  of  demand  paths  in  FCRTYP  dataset 
DARP  - array  of  demand  and  receipt  pointers  in  FCRTYP 
dataset 

IRPTR  - array  of  demand  and  receipt  po;nters  in  FCRTYP 
dataset 


Verb  Outputs 
To  UDDR. 


Arguments  - 
First 
Second 
Th  i rd 
Fourth 


To  UDRR . 

Arguments  - 
First 
Second 

Thi  rd 
Fourth 


demand  rate  to  update  stack  entry  with 
KRLNOD,  update  successor  entry  to  this  node 
pointer  to  stack  in  DTABLE 

bottom  switch,  1.  value  indicates  update  of 
bottom  entry  if  KRLNOD  entry  is  not  found. 


receipt  rate  to  update  stack  entry  with 

KRLNOD,  update  the  successor  entry  to  KRLNOD  entry 

in  stack 

pointer  to  stack  in  DTABLE 

top  switch,  0.  value  indicates  no  action  if  KRLNOD 
entry  is  not  found. 

(UDRAT-2) 
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To  Calling  Program.  None. 
Programs  Called 

Verbs . None. 

Other.  UDDR,  UDRR. 
Input/Output  Files  Used 
None. 


(UDRAT-3) 
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WRCKF 

S/S/SA 

1/75 

WRCKF 

General  Description 

Special  verb  to  turn  off  a war  reserve  node  in  the  DSS  models  when  the 
fill  performance  has  fallen  below  a certain  value.  Checks  war  reserve  fill 
performance  against  a threshold.  When  fill  for  all  classes  has  fallen  below 
their  respective  thresholds,  PS  1 + PS2  are  executed  to  schedule  advances  of 
stage  sequence  and  execution  of  setup  passes  for  delinking.  Threshhold  is 
in  WR ( C 1 ) . I . Current  fillrate  is  in  FCDMD  (C2).A. 

Assembler  Inputs 

Arguments ■ None. 

Parameter  Slots. 

1 - R-delay  to  schedule  stage  advance  and  delinking  setup  pass 

2 - R-delay  to  schedule  another  stage  advance,  etc. 

Examp  1 es 
+ 

+ war  reserve  and  theater  safety  level  stocks 
+ 

WRSL . RLNOD  (P  = •••WRSL,  13.), 

STGBR (P  = 79$  1 =*C0NUS$  7=*C0NUS)  , 

CLSPC , 

PLOOP  (P='/:FCRAT  $ 

1 =CLAS ,MSET , 

CDMDS (P=0$ 

1 =TF I LL  $ 

2=STGBR(P=79$ 

3=CPALL , DUPD I ,PASSL))  , +PASS  ALL  DMD 

cisui Cp-o,3,i .) , 

STGBR(P=79$  5--C0NUS), 

CPAS  I (P=0 , 1 $ 

1 =BRLKR (P=3$ 

3=STGBR(P=79$ 

(WRCKF-I ) 
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6=DERLK(P=0) ) ) , +DELETE  ALL  R LINKS 

BRLKD ( P=2$ 

l=STGBR(P-79$ 

2=ADDLK(P=*C0NUS,*WRSL,0. ,-l )$ 

+A0D  WR  LNK  BEFORE  CONUS, Dl 
i*=DEDLK(P=*WRSL) ) $ +DELETE  DMD  Dl 
2=STGBR (P=79$ 

6=DEDLK(P="WRSL) ) ) ) ) , +DELETE  2ND  LNKS 
STGBR ( P=79$  3=-:WRSL.2) , *C0NUS 

111  MLOOP( 1=CSUP(P=0  ,SETPR(P=1 . ) ,SL0SS(P=0 ,0) ) , 

WRC KF ( 1 =RTURN (P=0) ,*WRSL.3$  +SCHEDULE  DELETION  OF  DMD  LNKS 

2=RTURN(P=2i*2) ,*WRSL.3) , +SCHEDULE  DELETION  OF  RTRN  LNKS 

*CONUS 


+ SUBNODE  3 - ADVANCE  STAGE  SEQ  AND  INITIATE  SETUP  PASS  FOR  DELINKING 
III  ADSTG(P=79) ,RLMSU ,*RLCTR 


END  OF  NODE  WRSL 


GASP  Files  Used.  None. 


Permanent  Attributes  Accessed 

PRIORY  (node)  - priority  codes  for  node  classes 
WR  (node,  claspr)  - 

1 - fill  rate  threshold 
FCDMD  (node,  claspr). ^ - demand  fill  rate 
Verb  Inputs 

From  Calling  Program. 

In  /SUPC/: 

Cl  - coordinate  array  (node,  class) 

C2  - coordinate  array  (node,  claspr) 
In  /RLSYS/ : 


Verb  Outputs 


RLNOD  - rate/level  node  number 


(WRCKF-2) 
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THE  BDM  CORPORATION 


From  Calling  Program. 

In  /SUPC/ : 

Cl  - coordinate  array  (node,  class) 
C2  - coordinate  array  (node,  claspr) 
In  /RLSYS/ : 

RLNOD  - rate/level  node  number 


Verb  Ouputs 


To  PS1  . 


In  /MAWVRB/: 

H0LD(1)  - time  for  war  reserve  turn  off 


To  PS2 . 

In  /MAWVRB/: 

H0L0(1)  - time  for  war  reserve  turn  off 


Programs  Called 

Verbs . None. 

Other.  CLASS,  IDSLON,  PERMDS . 
Input/Output  Files  Used.  None. 
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